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General 
Information 



Topics covered in this chapter include: 

* CCOS devices and units 

* CCOS internal data structures 

» The system communications area (SYSCOM) 
» The system call vector 
« Device directories 

* lORESULT codes 

Devices. Unitsi Volumes, and Drivers 

The primary function of an operating system is to control 
the interaction between the computer and its various peri- 
pherals. The actual, physical peripherals, such as printers 
and disk drives, are called devices. The operating system 
may view the device as one or more logical peripherals or 
volumes. Modems and printers are examples of devices that 
the operating system treats as a single volume. Hard disks 
are generally treated as multiple volumes. 

CCOS uses the unit mechanism to assign logical volumes to 
physical devices. At boot time, each volume is assigned a 
specific unit number that the operating system uses to 
communicate with it. This unit number may vary depending 
upon the system's configuration. 

Drivers are the software that implement the unit mechanism. 
A driver has two purposes: to transform generic operating 
system commands into device-specific actions, and to perform 
whatever format conversion is necessary when passing data 
between the computer and the peripheral. CCOS recognizes 
two types of devices: block devices, which communicate in 
512-byte chunks, and character devices, which communicate 
on a character-by-character basis. 

File and Volume Names 

CCOS volume names may be up to seven characters long, and 
can contain only letters, digits, and periods. A volume name 
can start with letters or digits, but not periods. File 
names may start with letters, digits, or periods, and may 
be up to 15 characters long. 
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Many CCOS file n«m«s use the period character to mark exten 
sion« to the file name. This period character is included as 
one of the 15 allowable characters. 

CCOS uses three standard extensions in file names: 

TEXT - A text file is human readable texti 
such as file produced when an EdWord 
iiiordpad is saved. 

. I - Intermediate code files produced by 

various compilers. These files are nor- 
mally deleted automatically as part of 
compiler operation. 

.OBJ - The end result of a compilation or assembly. 
These files are machine executablei although 
most will retiuire an additional linking 
step. 

User files may have any extensions desired. 
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Temporarij files 

Ttmporary files are normally not seen during standard CCOS 
operation. They are most often encountered after a system 
crash or power failure during a compilation or assembly. 
Temporary files are easily indentified by their scrambled 
datestamps- a directory listing will show a file with a ??? 
replacing the month specifier, and a year of 100. When a 
compilation or assembly aborts with a 

Can't open intermediate code file 

message, it's generally an indication that a previous 
operation has left a temporary file that needs to be erased. 

Temporary files can only be deleted with the CDletTemp3 
command from the file manager. If necessary, a temporary 
file can be made permanent by changing the date record of 
the file entry to a legitimate value with a user-written 
program. 

The Dispatcher 

After CCOS is booted, the file CC. DISPAT is automatically 
executed. This program is called the dispatcher, and is the 
primary user interface to CCOS. 

All CCOS utility and applications programs ars run from the 
dispatcher. When other programs are executed, the operation 
of the dispatcher is suspended, and its state saved. 

In some situations it may be useful to exit the dispatcher 
and issue commands directly to the operating system. The 
dispatcher is exited by pressing 

CExecFile3 X <Return> 

The function key labels will disappear from the bottom of 
the screen, and the CCOS 7. prompt will appear in the system 
window. The dispatcher, however, is still in memory, and 
typing control-D will cause the system to return control to 
it. 



Units and Volumes 

CCOS communicates with peripherals and devices through the 
unit mechanism. There are two types of units: character 
units and block units. As their names imply, character units 
work with I/O on a character-by-character basis, while block 
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units dsal uith 512-byte blocks. Block units are generallt) 
disk drives, tape drivesi or other mass storage devices. 

Devices on the system may be refered to either by their 
volume name or their unit numberi depending upon the envi- 
ronment. From the dispatcher, volume names must be used. 
From a program, use of the file I/O intrinsics requires 
volume names, while use of the UNIT I/O intrinsics requires 
unit numbers. 

CCOS assigns unit numbers to devices on the system during 
the boot process. While physical devices such as the key- 
board, display, and RS-23S ports will always be assigned the 
same unit number, logical devices such as disk volumes may 
be assigned different unit numbers, depending on the order 
in which they are mounted. Therefore, it's generally a good 
idea to use volume names when referencing disks from within 
programs. Two special forms of the CListVol3 function are 
avai lable: 



CListVol3 



and 



/ CListVon 



These can be issued from either the dispatcher or the file 
manager. The first form shows all current devices and 
volumes, along with their unit numbers, slot numbers, sire 
in blocks, and other information. The second form show 
more abbreviated information consisting of just the unit 
numbers, volume type, and size in blocks. 

All volume names are proceeded by a slash character. For 
example, the string /WORK refers to the volume named WORK, 
while /WORK/GRAPHICS is the PATHNAME for the file GRAPHICS 
on the volume WORK. 

The standard CCOS unit numbers and their assignments are: 



Unit Number Name 
/Null 



/Console 



Description 

Null device. May be writ- 
ten to indefinitely; when 
read, an end-of-file is 
returned. UNITBUSY will 
always return a FALSE. 

The system keyboard and 
screen, with echo. 



/Systerm 



Same as /console, but with- 
out echo. 

Unassigned and available for 
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user devices. 



/CCSYS 



6 


/printer 


7 


/remin 


8 


/remout 


9-29 




30 


/SLOT 10 


31 


/DTACOMl 


32 


/DTAC0M2 


33 


/OMNI NET 


34 


/TIMER 


35 


/KYBD 


36 


/DISPLAY 



The root volumei or volume 
from uihich the system was 
booted. On the Concept, this 
is generally /CCSYS. 

A user volume. The name de- 
pends on the volume assign- 
ed to that unit. If a vol- 
ume is assigned/ CCOS makes 
it the default volume. 

The system printeri if one 
is available. 

Not currently used by CCOSi 
available for user devices. 

Not currently used by CCOSi 
available for user devices. 

User devices; generally 
disk volumes. 

General slot I/O routines. 

RS-232 port 1 driver. 

RS-232 port 2 driver. 

Omninet port driver. 

Timer driver used by CCOS. 

Keyboard driver. 

Horizontal or vertical 
display driver. 



Floppy disksi if present, uiill be mounted starting on unit 
9. Unless specifically mounted to a certain unit (via the 
mount manager utility), hard disk volumes start usually 
mounting at unit 10. or the first unit number available 
after all floppies have been mounted. 

The dispatcher recognizes two special volumes: the boot 
volume and the default volume. The root volume is the volume 
the system was booted from, and always has a unit number of 
4. The default volume is set during a boot to whatever vol- 
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ume is mounted on unit 5i or the root volume if there is no 
volume mounted on unit 5. The default volume may be changed 
uktx the CSetVol3 command from the file manager or dispat- 
cher. 



Operating System Data Types 

BYTES: 8 bit quantities which are interpreted as values in 
the range -128 to +127. 

BLOCKS: A block is a group of 512 bytesi and is the stan- 
dard unit of disk I/O. |» 

WORDS: Occupy 16 bitsi and are equivalent to the Pascal type 
integer. Words represent signed integers in the range 
-32768 to 32767 and are always aligned on word boundaries. 

LONG WORDS: Long words are 32 bits long and correspond to 
the Pascal longint data type. Long words are aligned on word 
boundaries. Long words represent signed integers in the 
range -2, 147, 483. 648 to 2. 147, 483, 647. 

BOOLEANS: A Boolean data type occupies a single byte. A 
value of 1 represents TRUEi a value of O represents 
FALSE. Other values are not valid Booleans. Packed Booleans 
occupy one bit each. 

POINTERS: A pointer is a long word structure whose contents 
are a specific address within the 16li address space of the 
68000 processor. 

The NIL pointer: Pointers, as mentioned above, are long word 
quantities. The NIL pointer points to nothing and is repre- 
sented by a value of 0. 

STRINGS: A Pascal data type consisting of a (packed) array 
of characters with a preceding length byte. Thus, a string 
has a maximum of 255 elements. The length byte does not 
count as part of the length of the string. Strings are 
aligned on word boundaries. 

PACKED ARRAY OF CHARACTER: Similar to the string type, but 
without the preceding length byte. Also aligned on word 
boundaries. 
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The System Communications Area 

CCOS maintains a system communications areiai or SYSCOMi in 
memory. SYSCOM contains important, global system informa- 
tion that is used by the operating system. 

The exact location of SYSCOM varies, but its address is 
contained in the pointer at *180. Beloui is a diagram of the 
data in SYSCOM. The numbers to the left of each field indi- 
cate the displacement of the field into SYSCOM. in bytes. 
Following the diagram are short explanations of each of the 
fields. 



+0! 


lORESULT 


-+ 

1 


+2! 


Process Number 


1 

1 


+41 


Pointer to next available free space on the hea 


P! 


+8! 


Pointer to start of the system call vector 


i 


+ 121 


Pointer to the system output file 




+ 16! 


Pointer to the system input file 




+20! 


Pointer to the system device table 




+24! 


Pointer to the default volume directory name 


! 


+28! 


Pointer to start of the user command table 


1 
f 


+32! 


System date (packed) 


i 


+34! 


Overlay jump table address 




+381 


Next process number 




+40! 


Number of processes 




+42! 


Pointer to the process table 




+46! 


Pointer to the boot volume directory name 




+50! 


Pointer to memory bounds map 




+54! 

4._ 


Boot device number 




+56! 


Temporary uiindow record pointer 





CCOS Manual 



Page 7 



+601 Slot table pointer 

+ 

+641 Next uiindou record pointer 

+ 

+68! Current uindou record pointer 

+ 

+72! Current keyboard record pointer 

+ 

+76! Constellation user ID 

+ 

+78! Pointer to CCOS version number 

+ 

+82! Pointer to CCOS version date 

+ 

+86! Window table pointer 

+ 

+90! Suspend inhibit count 

+ 

+92! Suspend requested if non-zero 

+ 

+94! Title line offset for volume 

+ 

+95! Title line offset for time 

+ 



lOResult: A word value uhich contains a result code after 
the completion of any I/O process. 

Process number: A word value which is the current process 
number. The dispatcher has a process number of 0. A 
maximum of ten processes may be in use at any one time. 

Free heap: A pointer to the start of free memory available 
for storage allocation on the heap. 

System call vector- A pointer to the system call vector. 
This is a jump table to the various system routines and is 
described in further detail in the section SYSCOM: The 
System Call Vector. 

Sysout: A pointer to the standard output file. This is 
generally the screen. SYSIN and SYSOUT are used by the 
system for last resort error messagesi such as when the 
system runs out of memory. 

Sysin: A pointer to the standard input file< generally the 
keyboard (handling routine). 

System device table: A pointer to the device table. The 
device table describes each unit number to the system. 
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Directory name; A pointer to the default directory name. 

User table: A pointer to the start of the user command 
table. 

Date record: A packedi one-uiord record containing the 
current system date. 

Overlay table address: A pointer value pointing to the start 
of the current process overlay table. Used only when the 
current process contains overlays; otherwise contains a O. 

Next process number: A word value to be assigned to the 
next process. 

Number of processes: A word value representing the number 
of processes currently activei including the dispatcher. 

Process table address: A pointer to the process table. The 
process table contains information on the processes current- 
ly in the system. 

Boot name: A pointer to the directory of the device used to 
boot the system. 

Mem map: A pointer to a table describing the limits of 
memory available to CCOS on the current hardware. 

Bootdev: A word value containing the number of the initial 
boot device. 

Temp window record pointer: A pointer to a window record for 
a temporary window. 

Slot table pointer: A pointer to the slot table. 

Next window rec: A pointer to the next window record; valid 
only when more than one window is in use (CCOS normally 
keeps 3 windows active). 

Current window rec: A pointer to the current window record. 

Current keyboard rec: A pointer to the current keyboard 
character translation tables. 

Constellation user ID: A word containing the current user 
number. 

CCOS version number: A pointer to the a string containing 
the current CCOS version number. 
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CCOS \/ersion dstm: A pointer to the release date for the 
current version of CCOS. 

Windoit/ table: A pointer to the uindow table. 

Suspend inhibit count: Not used. 

Suspend requested if not zero: Not used. 

Title line offset for volume: Assuming the default 6 by 10 
character set. the number of spaces over to print the volume 
name on the title line at the top of the screen. This will 
war\i depending upon the screen orientation. 

Title line offset for date: The number of spaces over to 
print the date. 



Additional information on the various fields in SYSCOM can 
be found in chapter 6. 



Accessing SYSCOM from Pascal 

You can easily access SYSCOM from a Pascal program. The 
follouting program fragment illustrates the technique: 



Program Raskin; 

Uses -CtU /ccuti 1/os. globals. ob j> globals; 

PSys : PSgsCom. < Defined in GLOBALS > 



Beg in 

PSys := Pointer (SysComRec )/ < Defined in GLOBALS > 
WriteLnC 'Current lORESULT is 'i psys'^. sioresul t ) 

End. 



Note that this program assumes the existence of the GLOBALS 
unit in CCUTIL. The globals unit cannot be used in a 
program that uses the standard library unit CCdefn since 
many identifiers are declared in both units. In some cases 
it uill be necessary to extract only the data structures 
needed (such as SYSCOMREC and FIB declarations) from the 
globals unit. 
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SYSCOM: The System Call Vector 

All CC05 system calls are made through a table of routine 
addresses. This table is the system call vector. Each entry 
in the table is a pointer to the address of the desired 
routine. The address of the system call vector may be found 
in the SYSCOM (see previous section). The table layout is as 
follows: 



+ + 

i Offset ! Routine Name : Description ! 


! ! UNIT WRITE ! Direct write to a unit ! 


i 4 i UNIT READ ! Direct read from a unit i 


! B I UNIT CLEAR 1 Reset a unit- flush buffers, 1 
! ! ! if any. i 


! 12 I UNIT BUSY ! Check to see if unit is busy ! 


! 16 ; FPUT 1 Write one record to a file ! 


! 20 ! FGET ! Get one record from a file ! 


! 24 I FINIT ! Initialize a file ! 


I 28 I FOPEN i Open a file 


32 ! FCLOSE I Close a file 1 


1 36 ! WRITE CHAR 1 Write a character to a file ! 


! 40 1 READ CHAR 1 Read a character from a file ! 


i 44 I BLOCK I/O I Block file I/O I 


1 48 I FSEEK ! Position a file to a record ! 


! 52 ! NEW ! Allocate memory on the heap i 


I 56 ! DISPOSE I Remove allocated memory. This! 
1 I 1 is currently a NOP; use MARK! 
! 1 i and RELEASE to manage memory! 


60 1 MARK 1 Mark the current top of heap ! 


! 64 ! RELEASE ! Cut heap back to MARKed pos. ! 


68 ! MEMAVAIL ! Returns memory available for ! 
! ! ! dynamic storage allocation i 
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72 


! 6ETDIRNAME 


Get current directory name 


76 


! CRACKPATHNAME 


Parse a pathname 


80 


! UNITSTATUS 


Unit status call 


84 


1 LNEW 


LONGINT version of NEW 


88 


1 LDISPOSE 


LONOINT version of DISPOSE 


92 


1 CLI 


Command line interpreter 


96 


1 GETVOLNAMES 


Get volume names 


100 


1 CHKDIR 


Check for valid directory 


104 


1 FLPDIR 


Flip directory 


108 


i SEARCHDIR 


Search directory for filename 


112 


1 DELDIRENTRY 


Delete directory entry 


116 


I PUTDIR 


Write directory 


120 


1 UNIT INSTALL 


Install a unit driver 



Calling a System Routine 

Most user programs in a high level language uill not need to 
issue direct system callS' since the standard routines sup- 
plied in each language <i.e. WRITE and READ in Pascal) uill 
provide all the necessary functions. The only may to call a 
CCDS routine directly from a high level language is to code 
an external assembly language routine and link it to the 
main program. 

To call a system routine from an assembly language programi 
the appropriate parameters for the routine are pushed onto 
the stacki and a JSR to the appropriate routine address 
(extracted from the system call vector table) is executed. 

Below is an example of a system call to close an open file: 



PEA FBUF 
CLR. W -<SP) 
MOVE. L tlSO. W, AO 
MOVE. L S(AO). AO 



Push FIB address 

Close type : = NORMAL 

AO now = SYSCOM address 

AO now = sys call vector address 
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MOVE. L 32 < AO ) , AO 
JSR <A0) 



AO now = FCLOSE address 
CCOS call 

CCOS returns here. Remember to 
check lORESULT! ! ! 



The program fragment above as 
clared an appropriate FIB for 
FCLOSE routine expects this a 
accomplished by the first ins 
and fifth instructions locate 
call vector and extract the a 
leaving it in AO. An indirect 
The system call vector should 
routines since their addresse 
releases of CCOS and differen 



sumes that the user has de- 

the file being opened. The 
ddress on the stack, uihich is 
truction. The third, fourth, 

syscom, then locate the system 
ddress of the FCLOSE routine, 

JSR then calls the routine. 

always be used to call system 
s may change in different 
t memory size machines. 



System calls and details on the various parameters are 
dicussed more fully in chapter 3. 
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SYSCOM: The Device Table 

The device table or unit table contains a list of all devi- 
ces currently recognized by the operating system. The ad- 
dress of this table is kept in SYSCOM at an offset of 20 
bytes. The table structure is: 



+0 
+2 
+20 
+38 



Max number 


of devices 


Entry for 


device 


Entry for 


device 1 


Entry for 


device 2 



etc. 



The first word of the table contains a number representing 
the maximum number of devices available on the system. Each 
successive 18 byte entry contains the characteristics of a 
single device. The format of a device entry is: 



+0 

+2 

+6 

+8 

+ 16 

+20 

+21 

+22 

+23 

+24 

+25 

+26 

+27 



Valid operations 


Poin 


ter to device driver 


Bloc 


ked ! Mounted 


Device name 


Device 


size in blocks (long uird) 


Device slot number 


Device server number 


Disk drive number 


Disk drive type 


Sectors per track 


Tracks per side 


Device read only 


Vol directory flipped 
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+28 



Disk base block 



Note: For the Revision B 8" floppy disk driver, the "disk 
base block" parameter becomes "sector size in bytes. " Only 
the louer order word of the parameter is used. 

Valid Operations: This is a word quantity whose individual 
bits specify which operations are possible. The bits used 
and their definitions are: 



UN I TREAD 
UNITWRITE 
UN I TC LEAR 
UNITBUSY 
UNITSTATUS 



Pointer to device driver: A pointer to the entry point for a 
device driver. 

Blocked: A Boolean that indicates <when TRUE) that a device 
is blocked, such as a disk drive. Non-blocked devices, such 
as printers, handle I/O on a character by character basis. 

Mounted: A Boolean that indicates (when TRUE) that a device 
is mounted. 

Device name: An 8 byte string field containing the name of 
the device. The first byte is a length bytei the remaining 
seven bytes contain the actual device name. If no valid 
media is present (such as might occur when there is no 
floppy disk in a disk drive), the length byte will be 0. 

Device size: A long word quantity indicating the number of 
512 byte blocks residing on the device. This is applicable 
only to blocked devices. For unblocked devices such as 
printers or modems, this is set to 32.767. 

Device slot: Applicable only for devices attached to the 
Concept via the 50-conductor I/O slots. A byte which con- 
tains the slot number the device resides in. Set to 5 for 
Omninet devices. 

Device server: A byte quantity containing the device's 
server number. Applicable only to network systems. 

Disk drive: A byte containing the number of the disk drive 
the volume resides on. 

Sectors per track: For floppy disks, a byte containing the 
number of sectors per track. 
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Tracks per side: For floppy disksi a bgte containing the 
number of tracks per side. 

Device read only: A Boolean quantity set to TRUE if the 
device is read only. 

Vol directory flipped: A Boolean au^ntity set to TRUE if 
the device directory is byte flipped. Applicable only to 
blocked devices. A flipped directory has its integer fields 
stored in a format of lou order byte first/ instead of the 
CCOS standard of high order byte first. 

Disk base block: A long integer containing the starting 
block number of the device on a disk. Used for volume off- 
sets on a hard disk. For floppy drives, this field contains 
the sector size in bytes in its lou order word. woerds 

Accessing the device table from Pascal 

The following program fragment shows how the information in 
the device table may be accessed from a Pascal program: 

Program Raskin; 

Uses <»U /ccutil/os. globals. obj> globalsi 

Var 
PSys : PSysComi 
PTab : PDevTablei 

Begin 

PSys := Pointer (PSysCom)/ 
PTab : = PSys'^. SysDevTab; 

PTab now points to the system device table. 
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The File Information Block 

Each open file has an associated file information block or 
FIB. A FIB must be created before a file can be opened. The 
FIB describes the tgpe of file, buffering, etc. to CCOS so 
that the file can be handled correctly. FINIT will initia- 
lize a FIB passed by the user. FOPEN uilll associate the FIB 
with a particular file. 

The size of the FIB depends upon the type of file being 
opened. Files accessed with block I/O. such as Pascal un- 
typed filesi have 64-byte FIBs. in addition to a user-allo- 
cated block buffer. Unblocked files, i.e. TEXT files or 
typed files, have a FIB that is 576 bytes long, plus enough 
buffer space to hold one record. 

The structure of a FIB is given beloiu: 

+ + 

){ 
+ 



Byte +0 
+4 
+6 
+8 
+ 10 
+ 12 
+ 14 
+22 
+24 
+26 
+28 
+30 
+32 
+34 
+36 
+52 



Pointer to start of file buffer 
End of line ! End of file 

Text file I File states 

Record length 
File is open ! File is blocked 
Unit number on uhich file resides 
Length of volume name i Volume name (7 bytes) 
Maximum block number 
Next block number 
Repeat count 
File has been modified I « Unused » 
First block 
Next block 
File kind ! <X' Unused » 

Length byte of filename! Filename (IS bytes) 
Number of bytes in the last block of the file 
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+541 Year (7 bits) ! Day (5 bits) I Month (4 bits) ! 

+ + 

+56! « Unused» I File has soft buffer ! 

+ + 

+581 Maximum byte I 

+ + 

+60! Next byte ! 

+ + 

+62! « Unused » I Buffer has been changed! 

+ + 

+64-571! 512 byte buffer if the file has a "soft" buffer ! 

+ + 

+572! "Window" large enough for one file record 1 

+ + 



Pointer to file buffer: A pointer to the buffer at the end 
of the FIB. Only valid for TEXT or untyped files. 

End of line: A Boolean value that is TRUE if an end-of-line 
character was encountered in the last read of the file. 

End of file: A Boolean value that is TRUE if the file is 
currently positioned at its end. 

Text: A Boolean value that is TRUE for TEXT or INTERACTIVE 
files. 

State: A field that can have the values 0-3/ and is valid 
only for text files. Represents the state of the files's 
buffer and is used by FGET. 

Record size; A word eiuantity denoting the number of bytes 
in a record. 

File is open: A Boolean value that is TRUE if the file is 
currently open. The fields AFTER this field arB valid ONLY 
if this field is TRUE. 

File is blocked: A Boolean that is TRUE if the file resides 
on a blocked device (e.g. a disk). 

Unit number: A word that contains the unit number for the 
volume the file resides on. 

Volume name: A 8 byte string that contains the name of the 
volume the file resides on. The first byte contains the 
length of the volume name. 

Maximum block: A word denoting the number of the last 
block in the file. 
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Next block: A word value containing the number of the next 
block to be read from or written to the file. Valid only 
for blocked devices. 

Repeat count: A word value representing the number of lead- 
ing spaces on a line. Included for UCSD file compatibility. 
Valid only for current record of text files. The normal 
sequence is DUE N. where N is a binary number representing 
the number of spaces at the start of the line. 

Modified: A Boolean value that is set to TRUE if the con- 
tents of the file have been changed. 

Header: This is the current directory entry for the file. It 
contains all fields from byte +30 to byte +56. 

Soft buffer: A Boolean value that indicates that the file 
buffer for this file is part of the FIB, as opposed to being 
separately allocated as in the case of a blocked file. The 
following fields are valid only if the soft buffer field is 
TRUE. 

Next byte: A word pointer to the next byte to be read from 
or written to the current file buffer. 

Maximum byte; A word quantity that is the number of the 
last byte in the buffer. 

Buffer changed: A Boolean that is TRUE when the buffer for 
this file has been changed. Used to notify the system that 
the buffer must be written to the disk. 

Buffer: For typed files only, the 512-byte buffer area at 
the end of the FIB. 

Record window: For typed files, a buffer area large enough 
to hold one record of the file. 



Accessing a FIB from Pascal 

The following program fragment illustrates a technique that 
mag be used to access a FIB from Pascal. This example as- 
sumes the existance of a file called TEST. 



Program GetFibi 

Uses <$U /ccuti 1/os. g lobals. Ob j> globals; 
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Var 

DemoFile : Filei 
PtrFib : PFIB; 

Begin 

Reset<DemoFile, 'TEST'); 
PtrFib := eDemoFile; 



PtrFib now points to the FIB of DemoFile. 
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The Device Directory 

Directories reside on blocked devices (i.e. disk volumes)i 
and contain information about files on the volumei such as 
the size of the filei its type (text filet code filei etc. >< 
its starting location on the diski and the date of its last 
modification. 

The volume directory has space for a maximum of 77 entries< 
so a volume may have a maximum of 77 filesi regardless of 
the amount of space available on the volume. In addition, 
each directory contains a special entry uhich describes the 
particular volume. This header record contains information 
on the volume in a format similar to that of a directory 
entry for a file. 

The structure of a directory entry is shown beloui. The first 
part of the structurei i. e. the first 6 bytes/ is common to 
all directory entries. Of the last portion< the left part 
represents the structure of the entry if it is a volume 
headeri and the right part represents the structure of the 
entry if it is a directory entry for a file. 



+0 
+2 
+4 



First Block 
Next Block 



File type 



Unused 



+6 i Disk volume name 

+ 

+14 ! Last block number 



.+ + _ 



+ + 



-•-16 I Number of files 

+ 

+18 I Last boot 

+ 

+20 I Last access 

+ 

+22 i Mem flip'd I Disk flip'd 

+ 

+24 ! Unused 

+ 



Name length ! 1st char, 
remaining chars of name 



+ + 



+ + 1 



Last byte 
Last access 



-+ 

I 

-+ 



Volume header entry File directory entry 

First block: A uord quantity denoting the starting block 
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numbtr of the file. For a volume header* denote* the first 
available block on the disk> normally 0. 

Next block: A uiord denoting the next available block after 
the end of the file. For a volume header> the first availa- 
ble block on the volume> normally 6> since the directory and 
other systems data occupy blocks through 5. 

File type: A four-bit q^uantity uhich designates the type of 
file this entry represents. The possible values for this 
are as follows: 

or 8 - directory header entry 

2 - code file 

3 - text file 

3 - data file 

The "code file" type designation refers to a P-system code 
file. CCOS code files are flagged as data files. This metho- 
dology uas adopted for P-system compatibility. 

The remaining 12 bits of the field are unused. 

If the directory entry is for a file: 

Name length: A one byte field containing the number of 
characters in the file name> up to a maximum of 15. 

Name: The actual file name. This field is actually part of 
a string! with the name length field as the string length 
spec if ier. 

Last byte: A word containing the number of characters in 
the last block of the file. The remainder of an end block 
is padded with ASCII null characters. 

Last access: A word containing a date record representing 
the last time the file was changeced. 



If the directory entry is a volume header: 

Disk volume name: An 8 byte field consisting of a length 
byte followed by up to 7 characters of volume name. 

Last block: A word denoting the number of the last available 
block on the volume. 
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Number of filts: A uord containing tht numbtr of files on 
the volume (maximum of 77). 

Last access: A date record specifying the last write access 
to the directory. 

Last boot: A uord containing the most recent setting of the 
date. This is updated automatically uihen CCOS is booted. 
Only the record on the boot volume is affected. 

Memory flipped: A Boolean used by the system uhen a direct- 
ory read into the Filer is byte flipped. 

Disk flipped: A Boolean used by the system to indicate that 
the disk directory is byte flipped. 

Accessing device directories from Pascal 

Routines to read and urite device directories are contained 
in the CCdirlO unit in CCLIB. See "The System Library Users 
Guide" for more information. 
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lORESULT codvs 

Th* lORESULT field in the system communications area (SYS- 
COM) is an integer value that is set every time an I/O 
operation is performed. This value is available in Pascal 
by calling the predeclared function IORESULT< as in: 

IF lOResult O Then Begin. . . 

The possible values for lORESULT are: 

0: Good result. 10 operation completed successfully. 

1: Bad block. Usually caused by a CRC error when reading 
a disk. 

2: Either a nonexistent unit number has been referencedi 
or no driver is installed for the unit. 

3: An attempt uas made to perform an invalid output op- 
eration/ generally a unit I/O re<iuest not supported 
by the driver in use. 

4: Nebulous Hardware Error. 

5: Lost device: A previously valid device uent offline. 

6: Lost file: A prevously accessed file has disappeared 
from the directory. 

7: Invalid file name. 

8: No room left on the device (usually caused by an 
attempt to urite a file larger than the remaining 
space on a disk >. 

9: Fatal 10 error: A device has become unavailable in 
the middle of an 10 operation. 

10: No such file- The file specified does not exist. 

11: Duplicate file name: Attempt to create a file on a 
device uihich already has a file of that name 
resident. 

12: File is already open: Attempt to open a previously 
opened file. 

13: File is not open: Attempted 10 operation on a closed 
or unitialized FIBi such as an attempt to read a file 
uiithout opening it. 
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14: Bad format: Non-numeric data was read in an integer 
or real format READ operation. 

15: Ring buffer overflow Currently unused bg system. 

16: Mrite protect error; Attempted urite to a write 
protected device. 

17: Seek error: Attempted seek on a file that is not 
a blocked or TEXT file. Also caused by a seek to 
a negative record number, or a floppy track seek 
error. 

18: Invalid block number A req,uest was made to a blocked 
device with a block number that was negative or 
greater than the highest block number on the device. 

24: Device timeout. The system has timed out while wait- 
ting for a device to respond. Currently used only 
with floppy disks. 

25: Attempted seek to track of a floppy failed. 

26: Failure to read or write floppy diskette! usually 
indicates an unformatted disk. 

27: Invalid sector length on floppy disk. Usually indi- 
cates an attempt was made to read a diskette for- 
matted on another system. 

28: Floppy track read was not the same as the track re- 
quested. Usually indicates foriegn diskette format 
or clobbered disk. 

29: Track read was flagged as a bad track, (as per IBM 
spec > 

64: Device error of unknown origin. 



Some devices on the system may generate device-specific 
lORESULT codes. lORESULT codes for Corvus supplied device 
drivers are specified in chapter 5, "Standard Device 
Drivers. " 
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Memory and I/O 



CCOS Resource Usage and Concept Memory Map 

Top of memory + + 

(4100000 on i CCOS kernel code I 

512K unit) + + 

! Dispatcher j 

+ + 

I Program 1 I 

I Program 2 I 

1 Program 3 ! 

I ... etc. I 



1 Loadable drivers, tables, char sets. etc. I 

Stack Ptr — > + + 

C*CEOOO on ! CCOS globals i 

512K unit; + + 

! Dispatcher globals ! 

+ + 

■ Dispatcher stack ! 

+ + 

I Program 1 globals and stack ! 

+ ^ 

I Stack I 

i ! { 

i V ! 



*8E000 > 

♦80000 > 

*40000 > 

♦30000 > 

♦22000 > 

♦20000 > 



Heap 



Display 


RAM 




« nothing 


» 




Hardware I/O 


«: nothing 


» 




MACSBUG (if 


insta 


lied) 
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» 12000 > 



» 10000 
*2000 



-> 
-> 



« nothing » 

+ + 

i boot PROM' local disk driver, floppy disk! 
! driver. OmniNct disk driver, keyb and ! 
I display driver. . . i 

+ . + 

« nothing » 

+ + 

i Static RAM: ! 



» 180 
♦ 100 



-> 
-> 



> 



Pointer to SYSCOli data area 



Trap vectors 



The system stack pointer determines hout memory is appor- 
tioned between code space and data space. The current 
setting of the system stack pointer can be seen by typing: 

SP CReturn] 

at the dispatcher level. The stack pointer value may be 
changed from the dispatcher by typing: 

SP <:neuivalue> <» of "K" RAM avail> 

This causes the system to uiarm boot and reallocate its 
memory. The second parameter is optional. For example, a 
512K system could be turned into a 256K system by typing: 

SP 9C400 256 

Users requiring a different allocation of code and data 
space can force the system to come up uith any desired 
stack pointer setting by putting an "SP <pointer value> 
STARTUP" line in the startup file STARTUP. TEXT on unit 5. 
This will lengthen the amount of time the system takes to 
come up since the system will first perform a normal boot, 
then immediately warm boot to reset the stack pointer. 

The STARTUP at the end of the line must be included, or the 
system will reboot in an infinite loop. 

The system stack pointer should not be confused with the 
68000 stack pointer; they are completely seperate. 

In a 512K machine with a standard complement of drivers, 
approximately 170K of code space and 200K of data space is 
available with the standard stack pointer setting. 
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Program code is loaded starting at the top of available 
memory (initiallg< just under the dispatcher) and grows 
downwards. CCOS drivers mtb loaded starting at the stack 
pointer and grow upwards. The address of the current top of 
driver space is contained in the pointer starting at *10C/ 
while the current bottom of code space is contained in the 
pointer starting at *108. The amount of available code/dri- 
ver space is the difference between these two values. 

Static data structures (simple variables< constants, and 
arrays) are allocated starting at the stack pointer and 
growing downward towards low memory addresses; this data is 
collectively referred to as the stack. Dynamic data struct- 
ures, such as those created with NEW in Pascal/ are alloca- 
ted starting at the top of display RAM and growing upwards; 
this data structure is called the heap. Data memory is full 
when the stack and the heap collide; code memory is full 
when the drivers and program code collide. 

The Pascal function MEMAVAIL returns the approximate amount 
of space remaining between the stack and the heap. The 
VOLUTIL utility on /CCUTIL can display a graphic and numeri- 
cal indication of available memory. 
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Concept Display Mamorii 

The Concept display is bitmapped — each pixel on the screen 
represents the state of one bit of memory. If the bit is a 
logical 1. the corresponding pixel is light. If the bit is 
a logical 0, the corresponding pixel is dark. 

The display contents are changed by writing values to memory 
locations between «80000 and »8DFFF (924268 to 381631 deci- 
mal). 

Screen memory is mapped to the physical display in the same 
fashion regardless of whether the display is vertical or 
horizontal. Thus, low memory addresses which reference the 
lower right hand corner of the display when it is horizontal 
will refer to the upper right hand corner of the display 
when it is vertical. 

When the screen is oriented horizontally, increasing addres- 
ses in memory reference scanlines on the screen from right 
to left, bottom to top: 



High address 



+ H 



( Concept display ) 



<- One byte, bits are 01234567 
<- Another byte, one scan line down. 
Scan line offset is *60 (96 dec) 



+ ^ 



Low address 



-+ <- 



L 
o 
w 
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H 
i 

9 
h 

a 
d 
d 
r 

e 
s 
s 



< bit 7 



a 
d 
d 

T 

a 
s 
s 



< bit 



-> +- 



The RcadBytes routine in the CCgrflO library unit can be 
used to read data directly from screen memory. 
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CCOS R«gist«r Usaga 

68000 register usage in CCOS is as follows: 

A4- Holds address of overlay jump table 
A9- Holds address of user global data 
A6- Holds the base address of the local 

stack frame. A6 contents are undefined 
for a program at the outermost <main) 
level. 
A7- Holds the current top-of-stack address. 

All other register contents are destroyed uhen system calls 
are made. 



When a program is started, the top portion of the stack 
contains: 



(A7) •+• 20 

(A7) + 16 

(A7) + 12 

<A7) + a 

(A7) + 4 
{A7) 

(A5) > 



Pointer to standard error file FIB 
ARGC (argument count) - a word 
ARGV (pointer to arguments) 
Pointer to standard output file FIB 
Pointer to standard input file FIB 
Return address 
Old copy of A5 contents 



ARGC and ARGV are special values set when a program is 
invoked from the dispatcher. ARGC points to an integer, 
while ARGV points to an array of pointers to strings. For 
example, if you called the linker by typing: 

Linker CReturn] 

ARGC would be O and the ARGV pointer would be invalid. If. 
however, you invoked it by typing: 

Linker testprog /ccutil/cclib !paslib CReturnJ 

then ARGC would be 3. and ARGV would point to an array of 
pointers to the memory where the three strings were stored. 
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Concept I/O Mapping and Interrupt Structure 

All Concept hardware I/O occurs in the address range *30000- 
♦3FFFF. This includes: 

* The keyboard ports 

* The tufo RS-232C (datacomm) ports; 

* The 6522 VIA and real-time clock. 
« The OmniNet port; 

* The four Apple-compatible 50 pin slots. 

Interrupts 

Most Concept I/O is interrupt driven. The 68000 user inter- 
rupts are not used since the 6502-familg devices used for 
I/O (6522i6551) do not produce vectors. The NMI (non 
maskable interrupt) is not normally used on the Concept. 

Interrupt Levels 

Priority Level Signal Name Device 

7 NMI Not used 

6 NKeyInt Keyboard 

5 NTimInt VIA timer 

4 NSrOInt RS-232 port 

3 NOmlnt Omninet 

2 NSrllnt RS-232 port 1 

1 NIOcInt 50 pin slots/ 

datacomm ctrl 

Time-critical sections of code can disable interrupts by 
setting the 66K interrupt priority mask to 7. Since the 
Concept has no level 7 interrupts, these sections of code 
can then run uiithout being interrupted. 

The follouiing sections detailing CCOS interrupts and the 
detailed I/O map will necessarily involve some hardware 
description. For details on the various hardware items 
identified, consult the "Corvus Concept Hardware Descrip- 
tion" manual. 



Keyboard Interrupts 

The keyboard UART is a 6551 device. It operates in a receive 
only mode. Each time a new character becomes available, a 
level 6 interrupt is generated. 
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Timer Interrupts 

The Concept timer is part of a 6522 device. One of the 
internal counters is used to cause a level 9 interrupt every 
30 milliseconds. This is used in repeat key timingi among 
other things. None of the other interrupt possibilities of 
the 6522 can be used. 



DataComm Interrupts 

The Concept's RS-232 ports are serviced by a 6551. This 
device can be set to interrupt on receiving or transmitting 
a character. The 6551 can be configured (in softuare) for a 
variety of baud rates and data formats (see the 6551 data 
sheet for details). 

The datacomm port O (or RS-232 port 0) generates level 4 
interrupts. Datacomm port 1 has its oun 6551 and is pri- 
marily used for driving printers. The only functional dif- 
ference is that it generates level 2 interrupts. 

Omninet Interrupts 

Whenever the Concept's internal Omninet transporter com- 
pletes an operationi it generates a level 3 interrupt. 
Omninet cannot turn the interrupt offi so NOMOFF must be 
sent at the end of an Omninet interrupt to turn the inter- 
rupt off. Care must be taken not to respond to the same 
interrupt more than once. 

Additional details of Omninet programming may be found in 
the Omninet Programmer 's Guide. 

Detailed I/O Map 

Note: An "x" in an address means "Don't care". All I/O 
addresses MUST BE ODD. The 50-pin connectors used in the 
Concept follouis the signal conventions and addressing 
established in the Apple 3C computer. 

This section of the manual is intended for use by program- 
mers familiar with the Concept I/O devices. Detailed tech- 
nical information on such things as the 6522 and 6551 devi- 
ces may be found in the "Hardware Description" manual. De- 
tailed information on programming the Omninet hardware may 
be found in the "Omninet Programmer's Guide." 
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I/O Ports 



I K*g ! OCofflm I DComm ! 6922 
iboard! portl i port2 i VIA 



Clock i Omni I Omni { I/O ! 
ALTMAP I strobe iintrpti strobe! 



iaOFOxi 30F2X 



30F4X I 30F6X i 30F8x 
I 30F7X I 



30FAX I 30FCxi 39FFFi 



! ROM mapping of I/O slots (Apple addresses in parens) 



Slot # 



Byte 



Bgte 1 



Byte 2 



Byte Nl 

+ 

(CIFF) I 
303FF I 



(ClOO) 
30201 



(ClOl) 
30203 



(C102> 
30209 



(C200> 
30401 



(C201> 
30403 



(C202) 
30409 



CC2FF) i 
309FF ! 



(C300) 
30601 



(C301) 
30603 



<C302) 
30609 



(C3FF) 
307FF 



(C400) 
30801 



(C40n 
30803 



(C402) 
30809 



(C4FF> ! 
309FF i 



Note: The initial *Cxxx of an Apple address is replaced by 
$30xxx. The louier three nibbles of the Apple address are 
shifted left one bit and 1 added. ROM tables and ID may be 
read and used, but the 6902 code cannot be executed. Device 
drivers in 68000 code may be written and linked to devices 
with the ASSIGN utility. 
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I I/O slot register addresses 



! I/O register 



Slot 1 



Slot 2 I Slot 3 i Slot 4 



O 
1 

2 
3 
4 

5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



30021 


30041 


30061 


30081 


30023 


30043 


30063 


30083 


30023 


30045 


30065 


30085 


30027 


30047 


30067 


30087 


30029 


30049 


30069 


30089 


3002B 


3004D 


3006B 


3008B 


3002D 


3004B 


3006D 


3008D 


3002F 


3004F 


3006F 


3008F 


30031 


30051 


30071 


30091 


30033 


30053 


30073 


30093 


30035 


30055 


30075 


30095 


30037 


30057 


30077 


30097 


30039 


30059 


30079 


30099 


3003B 


3005B 


3007B 


3009B 


3003D 


3005D 


3007D 


3009D 


3003F 


300 5F 


3007F 


3009F 



Note: These addresses correspond to the Apple device control 
addressesi which are of the form »COxO - tCOxFj where x is 
the slot number + 8. Unlike the Applei these addresses are 
NOT CONTIGUOUS! but alternate bytes. This is an artifact of 
the 68000 16 bit data bus structure. 



! 6522 VIA general purpose I/O 

+ + 

! 30F61 ! Output register Bi input register B 

+ _ ___ — _ + 



! Video off ! Output 


1 1 Video address 17 1 Output 


2 ! Video address 18 ! Output 


3 ! Horizontal/vertical switch ! Input 


4 i CH rate select OCO ! Output 


5 ! CH rate select DCl { Output 


6 ! Boot switch ! Input 


7 ! Boot switch 1 1 Input 



+ + + + + 

! 30F63 I Output register A< Input register A handshake 
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i 30F65 I D«ta direction register B-Set to 37 by boot PROMI 



I 30F67 



Data direction register A-Set to 80 by boot PROM! 



I 30F69 



Timer 1 latch lou byte> urite latchi read enter ! 



i 30F6B 



Timer 1 latch high byte 



! 30P6D 



Timer 1 latch lou byte 



30F6F 



Timer 1 latch high byte 



I 30F71 



Timer 2 latch loui byte> uirite latch< read enter i 



! 30F73 



Timer 2 counter high byte 



! 30F75 



Shift register 



i 30F77 



Auxiliary control register 



1 30F79 



Peripheral control register 



I 30F7B 



Interrupt control register 



I 30F7D 



Interrupt enable register 



! 30F7F 



Output register Ai input register A> no handshake! 



Omni net ready 



Clear to send (Dtacom 0) 



Clear to send (Dtacom 1) 



Data set ready (Dtacom 0) 



Data set ready (Dtacom 1) 



Data carrier detect (Dtacom 0) 



Data carrier detect (Dtacom 1> 



Exclusive OR of above signals 
for interrupt 



Input 



Input ! 



Input 



Input 



Input 



Input 



Input ! 



Output 



+ + 

I 30FA1 - 30FBF ! Omninet transporter resgister 

+ + 
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I 30FC1 - 30FDF i Rssct Omninet interrupt 



I Register I Keyboard 



Data Comm 



Data Cofflm 1 i 



! Data 



30F01 



30F21 



30F41 



I Status 



30F03 



30F23 



30F43 



I Command 



30F05 



30F25 



30F45 



I Control 

+ 



30F07 



30F27 



30F47 
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Systvffl Callt 



This chapter providas a complete description of the system 
call interfaces. System calls are made to CCOS by pushing 
parameters on the 68000 stack> and performing a JSR to the 
desired routine. Results from the call< if any< are returned 
on the stack. Unit and file I/O calls will also set the 
value of lORESULT. the first field in SYSCOM. 

Since CCOS uses many of the 68000's internal registers) the 
SAVEM. L instruction should be used to save the register 
contents prior to the actual call of the system routine. 



Parameters for each call are described 
they should be pushed. All system call 
procedures or Pascal functions. The sy 
procedures return the stack as they re 
ious fields changed- i.e. the stack po 
same place> and the user must remove t 
the stack before proceeding. System ca 
cal functions will return a single val 
type of value returned depending upon 
tion. Space for the result must be pus 
before any of the parameters the funct 



in the order in which 
s act as either Pascal 
stem calls which are 
ceived it< with var- 
inter will be in the 
he various items from 
lis which act as Pas- 
ue on the stack> the 
the function defini- 
hed onto the stack 
ion may take. 



One-byte values (such as Booleans) are pushed onto the stack 
with the MOVE. B instruction. This actually pushes a word 
onto the stack and decrements the stack pointer by two. The 
low address of the word (or the most significant byte of the 
word is considered as an integer) contains the actual one 
byte value desired. 

The entry points to the various system routines are kept in 
the system call vector table. The location of the table may 
be found in SYSCOIi. SYSCOM and the system call vector are 
described in chapter 1. The various data structures referen- 
ced by these calls (such as directories/ file entriesi etc. ) 
may be found in chapter 6: "OS Global Declarations. " 

The discussions below cover the following topics: 



* Unit I/O 

♦ File I/O 
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* Memory management 



Warning: Direct sgstem calls should be used with a great 
deal of caution! Conflicts can arise when direct system 
calls are made since the supporting action of the high level 
language is bypassed. 
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Unit Input/Output 

Unit I/O is the lowest level of the CCOS I/O facilities. 
Unit I/O cofflfflunicates with system devices in terms of BLOCKS 
(chunks of 512 bytes) on blocked devices and characters on 
character devices. All unit I/O procedure and functions set 
the syscoffl field lORESULT. Programs using unit I/O should 
check this field after every operation. 

Unit I/O is accessed by pushing a group of parameters on the 
stackt and then performing a call to the specific procedure 
desired. 

Five system interfaces are provided for unit I/O: 

* UNITREAD- Read a unit,- 

* UNITWRITE- Write to a uniti 

* UNITBUSY- Check to see if unit is in use, 
« UNITCLEAR- Reset unit; 

* UNITSTATUS- Device dependent functions. 

These system interfaces are described in detail in the 
following sections. 



UNITREAD and UNITWRITE 

UNITREAD and UNITWRITE are procedures which transfer data 
between a memory buffer and a specific unit. Parameters for 
these calls are: 

+ + 

! Unit number ! 

+ + 

! Buffer address I 

+ + 

! Byte count ! 

+ + 

! Block number ! 

+ + 

I Mode i 

TOS > + + 



Unit number- A word quantity representing the unit number 
involved in the transfer. 

Buffer address- A pointer to the memory buffer. 

Byte count- A word quantity containing the number of 
bytes to be transferred. 
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Block number- A word q^uantity containing the number of the 
starting block to be read or written. This 
parameter is ignored by character units such 
as printers or the keyboard. 

Mode- A word quantity that affects device-depen- 

dent characteristics. The characteristics 
affected will depend on the device driver 
and are documented for each driver. 



UNITBUSY 



UNITBUSY is a function which is called to see if a unit is 
ready for I/O. For input purposes> this generally means that 
the unit queried should have characters ready. For output, 
it simply means that the unit is ready to accept data. 

UNITBUSY takes only one parameter, a word quantity contain- 
ing the number of the unit desired. The result returned is a 
Boolean which is TRUE if the unit is busy, or FALSE if it is 
not. The UNITBUSY function will overwrite the top of stack 
with the result. Note that this is different from the other 
UNIT intrinsics. 

+ + 

Input stack: ! Unit number ! 

TOS > + + 

+ + 

Output stack: I | BUSY Boolean I 
TOS > + + 



Only a single byte is removed from the stack to get the 
UNITBUSY result. This is accomplished with a MOVE. B <SP)+, Dn 
instruction where Dn is a data register from DO through D7. 



UNITCLEAR 



UNITCLEAR is a procedure used to reset a unit to a known 
state. Like UNITBUSY, it takes a word parameter containing 
the number of the unit. The exact function of UNITCLEAR is 
device dependent, but in general it serves to cancel any 
pending I/O to the unit and to flush any associated buffers. 



! Unit number 
TOS > + 
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UNITSTATUS 



UNITSTATUS is a catch-all procedure d«sign«d to return the 
current status of a uniti as well as to change various unit 
parameters. The parameters affected depend upon the unit 
driver; see the appropriate driver documentation for de- 
tails. 



Unit number 
Parameter block address 
Function code 



TOS > 



Unit number- A word quantity representing the unit 
number. 

Parameter block-A long word pointer to the buffer for the 
data passed to and from the unit. 

Function code- A inord quantity the selects the function to 
perform. 

UNITSTATUS may or may not return results in the parameter 
blocki depending upon the operation performed. 
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File Input/Output 

This section describes the CCOS facilities for direct file 
I/O. Before file I/O can be performed' m File Information 
Block (FIB) must be allocated (see chapter 2 for details of 
FIB structure). In addition, blocked files require a buffer 
of sufficient size to accomodate the largest amount of data 
to be transferred at any one time. 

From the programmer's point of vieui there am three types 
of data files: typed files, text files, and untyped files. 
A typed file is a file whose records follow some sort of 
structure, and are declared FILE OF <whatever>; . The GET. 
PUT. and FSEEK command in Pascal are used to manipulate 
these files. 

CCOS text files exmploy the UCSD text file structure. 
Leading blanks on a line are compressed to the form OLE N. 
where OLE is the ASCII Data Link Escape code (decimal value 
16). and N is a binary number representing the number of 
spaces compressed. Thus, the numbers 16 8 at the beginning 
of a line indicate that 8 spaces exist at the start of the 
line. In addition, lines in text files may not be broken 
across 1024-byte "pages. " The first two blocks in a text 
file comprise the first page. If a line will not fit on the 
current page, it is moved to the next page, and the remain- 
ing bytes of the current page are set to ASCII Null charac- 
ters (decimal O). From Pascal, the READ. READLN. WRITE, and 
WRITELN procedures are used to access text files. The OLE- 
blank compression and page structure are handled automati- 
cally. 

Untyped files are declared as simply FILE., and are treated 
as collections of blocks with no other structure. The BLOCK- 
READ and BLOCKMRITE functions are used to access these files 
from Pascal. 

The basic file I/O procedures are FINIT, FOPEN. FPUT. FGET, 
FCLOSE. READCHAR. and WRITECHAR. 

All strings pointed to (such as volume, device, and path 
names) are Pascal strings: the first byte contains the 
number of characters in the string. 



FINIT 



FINIT is a procedure that creates a File Information Block 
(FIB). Mhile FINIT is handled automatically in Pascal pro- 
grams, machine code programs must call it to establish a FIB 
prior to calling FOPEN. 
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volume name is us«cl< th« default volumi 
is assumed. Th« boot volume mag be 
abbreviated as !> i.e. ! /<f ilename>. 

Pointer to FIB- A pointer to the file information 

block. 

New file indicator- A Boolean which, when set to TRUE/ 

indicates that a new file is being 
created. 



FCET and FPUT 



The FOET and FPUT procedures operate identically with the 
exception of the direction in which the data is transferred. 
The only parameter to either procedure is: 



Pointer to FIB 



TOS > 



Pointer to FIB- A pointer to the file information block. 

Both FGET and FPUT transfer one record of the current file 
to or from the buffer pointed to by the FIB. The SEEK proce- 
dure can be used to position the file at the desired record 
prior to using FOET or FPUT. FGET and FPUT cannot be used 
with untyped files. 
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Pointer to FIB 
Bgtes in record 



TOS > 



Pointer to FIB- A long word pointer to the file information 
block. 

Bytes in record- A uiord (quantity uhich< if positivei repre- 
sents the number of bytes in each record of 
the file. If zeroi the file is an interac- 
tive file, such as the keyboardi and is 
handled in a manner similar to text files, 
with some minor differences in the treat- 
ment of end-of-line. There are two possible 
negative numbers: 

-1: File is a UC5D P-system compatible file. These 
are untyped files (i.e. VAR UCSDFile : Filei). 
and the user must provide the file buffer. Only 
block I/O may be performed. 

-2: File is an ISO Standard Pascal compatible file. 
These are text files, i.e. VAR ISOFile : Text;. 



FOPEN 



The FOPEN procedure opens a file for data transfer. The 
parameters are: 



Pointer 


to 


pathname 


Pointer 


to 


FIB 


New fil 


.e 


indicator 



TOS > + 

Pointer to pathname- A pointer to a character string con- 
taining the pathname of the file to be 
opened. Currently, a maximum of 24 
characters may be in this string: a 7 
character volume name enclosed with "/" 
slash characters, followed by a file 
name of up to 15 characters. If no 
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FCLOSE 



The FCLOSE procedure closes a file# first flusing ang I/O 
buffers associated with the file. The actual file is 
"disposed" of in a manner determined by the MODE parameter. 
The parameters for FCLOSE are: 



Pointer to FIB 
Mode 



TQS > 



Pointer to FIB- The pointer to the file information block. 

Mode- A word quantity indicating the disposition 

of the file after it is closed. Possible 
values are: 

0: NORMAL- If the file existed prior to the FOPEN 

condition closed by this FCLOSEi it is re- 
tained. If it was created by the FOPEN. it 
is purged from the file system. 

1: LOCK- Just like NORMAL, except the file is ALWAYS 
retained, even if it was created by the 
the FOPEN. 

2: PURGE- The file is always removed from the file 
system, even if it previously existed. 



READCHAR 



The READCHAR function reads a single character from a file. 
It can only be used with file of type INTERACTIVE (mode 0) 
or TEXT (mode -2). The parameters for READCHAR are: 



Return byte space 
Pointer to FIB 



TOS > 



Return byte- The user must push a byte quantity on the 

stack prior to executing this call. The byte 
read from the file will be returned here. 

Pointer to FIB- A pointer to the file information block. 
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READCHAR returns a single character on the top of the stack. 



WRITECHAR 



The MRITECHAR procedure writes a character to a file. An 
optional field uidth parameter can be used to cause space 
filling. Like READCHAR, WRITECHAR can be used only uith 
INTERACTIVE or TEXT files. The parameters are: 



Pointer to FIB 
Character 
Size 



T05 > 



SEEK 



Pointer to FIB- A pointer to the file information block. 

Character- The character to be uiritten to the file. 

Size- A word quantity representing a field width, 

normally set to one. If greater than onei 
the character written is preceeded with 
<Size-l) spaces. 



The SEEK procedure positions the file to the start of a 
given record. Normally used with typed files (i.e. FILE OF 
■Cwhatever:*) , it can also be used with TEXT files, which are 
treated as files of character records. Thus, seeking to 
position 120 of a TEXT file would leave the file pointer 
positioned at character 121 (record numbers start with O). 

Parameters to SEEK are as follows: 



Pointer to FIB 
Record number 



TOS > 



Pointer to FIB- A pointer to the File Information Block. 
Record number- A long word quantity representing an 
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absolute record number. 



BLOCK I/O 



Block oriented file I/O is used to read and write entire 
blocks (groups of 312 bytes) from disk files. The Block 1/0 
procedure can only be used with untyped files- files created 
with a mode of -1. Parameters to BLOCKIO ^re as follows: 



TOS 



- — > + 



Return value 


P 


ointer 


to FIB 


P 


ointer 


to buffer 




Block 


count 




R/W 


indicator 



Return value- 
Pointer to FIB- 



An integer whose value is set by BLOCKIO. 
A pointer to the File Information Block. 



Pointer to buffer- A pointer to the area of memory to be 

used for the data transfer. 



Block count- 



R/W Indicator- 



A word quantity representing the number 
of blocks to be transferred. 

A Boolean quantity which indicates a read 
when TRUE and a write when FALSE. 



BLOCKIO returns a word quantity on top of the stack. If this 
value is non-zero, it represents the number of blocks ac- 
tually transferred. It is important to note that this may 
not be the same as the number of blocks requested- as might 
occur when an end-of-file condition is encountered. If the 
value is zero, some form of error has occured. 



FlipDir 



The FlipDir procedure "flips" a directory- i.e. it changes 
the order of bytes in integers from high, low to low, high 
in certain fields in the directory. FlipDir is allows CCOS 
to access P-system directories, which are flipped with 
respect to CCOS directories. 
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Byte Byte 1 

+ + + 

I msb i Isb ! < CCOS 

+ + + 

I Isb I msb I < P-system 

+ + + 



Spec if icallyi FlipOir flips all the integer fields- luords 
0, li 3> 7> 8> lOi 11. and 12 uithin a given directory. 
The fields affected are FirstBlock. LastBlock. Misc> 
DeovBlock. DNumFiles> DLastBoot. DLastByte. and DAccess. 
FlipDir takes as parameter the address of a directory in 
memory- a directory must be read from disk into a memory 
buffer before FlipDir can be used. 



TOS > 



Pointer to directory 



Pointer to directory- A word pointer to a directory data 

structure in memory. 



ValidName 



The ValidName function returns a Boolean TRUE on the stack 
if the file name passed to it is valid. Validity checking 
is simple: if the name is of the right length and contains 
only characters in the set C'A'. . 'Z'. 'O'. . '9', '. ', '-', '_'l, 
then it's val id. 



Boolean return value 
Pointer to filename 



TOS > 



Boolean return value- One uiord space for return value. 

Pointer to file name- A pointer to a file name string in 

memory. 

ValidDirectory 

This function returns a Boolean TRUE on the stack if the 
directory passed is valid. The directory to be checked must 
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first btt r«ad into memory uiith GetDir. 

+ 

I 

+- 
t 
TQS > +- 



Boolvan return value I 

+ 

Pointer to directory ! 



Boolean return value- A uord space -For the return value. 

Pointer to directory- A pointer to a directory data 

structure. 



GetVolNames 

Presumably gets vol namesi but I don't really know... 

+ + 

I NameSearch I 

+ + 

I Cleanup I 

+ ► 

! Pointer to FName I 



TQS > +- 



I also don't know what any of these parameters are. 



GetDir 



This procedure is used to read a directory into memory from 
a blocked device. 



Pointer to vol name 

Pointer to directory 

Unit blocked 

Unit number 

Un i t va 1 i d 



TOS > +- 



Pointer to vol name- A pointer to a volume name. 
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Pointer to directory- A pointer to m diractorg. 

Unit blocked- A pointer to a Boolvan valu* uhich is 

TRUE if the device is blocksd. 

Unit number- A pointer to a word containing the 

device number. 

Unit velid- A pointer to a Boolean uihich is TRUE 

if the device is valid. 

GetDir will attempt to read a directory from the given 
device. If the device indicated is not a blocked device or 
has an invalid directoryi GetDir will start searching all 
volumes, starting with the next highest device number, and 
continue until all volumes have been searched or a valid 
directory is found. Thus> the user should always check the 
device number on the stack when the routine returns to make 
sure that the directory returned was from the rei^uested 
volume. 



PutDir 

The PutDir procedure writes a directory to a given unit. 



Pointer to directory 
Unit number 



TOS > +- 



Pointer to directory- A pointer to a directory structure 

in memory. 

Unit number- A word value containing the unit 

number of the device. 



CrackPathName 



The CrackPathName procedure takes a pathname (such as "/CC- 
SYS/ED">> determines if it's valid/ and returns seperate 
volume and file namesi as well as the file type and size of 
the file, in blocks. 



Pointer to pathname 
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TOS 



> 



Pointar to vol nam* 
Pointtir to fil* name 

File type 

File size 



Pointer to pathname- A pointer to the pathname. 

Pointer to vol name- A pointer to the volume name returned 

by the procedure. 

Pointer to file name- A pointer to the file name returned 

by the procedure. 



File type- 



A word quantity designating the file 
type. Legitimate values are: 






Directory 


5 


Data file 


1 


XDSKFile 


6 


Oraff ile 


2 


Code file (P-system) 


7 


Foto file 


3 


Text file 


8 


Securdir 


4 


Info file 







File size- 



A uord quantity containing the size of 
the file/ in blocks. 



SearchDir 



The SearchDir procedure searches a given directory for an 
occurence of a given file name. If the name exists within 
the directory, its place number (i.e. 1 for first file, 2 
for second file, etc. ) is returned. is returned if the 
file is not found. 



TOS 



> 



+ — — — — 

i Place number 


1 


Pointer to directory 


I 


Pointer to filename 


i 


Temp file indicator 
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Place number- A word for the returned value. 

Pointer to directorg- A pointer to a directory structure. 

Pointer to file name- A pointer to the name to be searched 

for. 

Temp file indicator- A Boolean tuhich/ if TRUE, causes the 

search to occur only on existing temp- 
orary file. If FALSE, onlt non-temp- 
orary files are searched. 

Note: No lORESULT error is possible with this procedure. 

DelEntry 

The DelEntry procedure removes a file's directory entry. 

+ + 

! Pointer to directory .' 

+ + 

! File position i 

TOS > + + 

Pointer to directory- A pointer to a directory. 

File position- An integer indicating a file's po- 
sition in the directory, from 1 to 
77. 

Note that to use this procedure, a directory must first be 
read into memory with GetDir. and the file's position loca- 
ted with SearchDir. No lORESULT error is possible with this 
procedure. 

InsertEntry 

The InsertEntry procedure inserts a file entry into a direc- 
tory. No checking on the validity of the entry is performed; 
it is the user's responsibility to make sure that the entry 
is well-formed. 

+ + 

{ Pointer to directory ! 

+ ■»• 

: Slot i 

+ + 
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! Pointer to file entry 

TOS > + 



Pointer to directory- A pointer to the directory. 

Slot- A uord quantity denoting the posi- 

tion in the directory the new entry 
will occupy (1-77). 

Pointer to file entry- A pointer to the file entry. 
Note: No lORESULT error is possible with this procedure. 
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liamory Managenicnt 

This section describes CCOS calls dealing with memorg ma- 
nagcment. The memory allocation is performed on the heap< a 
dynamic data structure that grows upwards from the bottom of 
data memory. The heap is used for all dynamic memory work. 
The stack) on the other hand> grows downward from the top of 
data memoryi and is used for local variables. When 
the stack and the heap collidei the system dies a messy 
death. 



NEW 



The NEW procedure allocates storage on the heap. The 
parameters to NEW are: 

+ + 

I Pointer to storage pointer i 

+ + 

I Byte count ! 

TOS > + + 



Pointer to storage- A pointer which points to another poin- 
ter. The second pointer receives the 
starting address of the newly allocated 
storage, assuming that there is enough 
heap space to process the call. NEW 
always returns a pointer that is assign- 
ed to a word boundary. 

If the second pointer is NIL <0). then 
there is insufficient memory for the 
data structure. 

Byte count- A word quantity representing the number 

of bytes to be allocated. NEW will 
round an odd byte count up to the next 
even number and allocate that number of 
bytes. 



DISPOSE 



Currently, DISPOSE is not implemented and acts as a No-Op. 
It returns a NIL pointer to the caller> and no storage space 
is deallocated. The parameters to DISPOSE are as follows: 



I Pointer to storage pointer I 
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i Byte count 
TOS > + 



Pointer to storage- A pointer uihich points to another long 

uord pointer uhich points to the address 
of the storage space to be deallocated. 

Byte count- A word quantity representing the number 

of bytes to be freed. 



HARK and RELEASE 

The MARK and RELEASE procedures are used together to de- 
allocate previously allocated storage. They take the 
(functional) place of the DISPOSE statement. Both MARK and 
RELEASE take the same parameters: 



+ 

! Pointer to storage pointer 



TOS > 



Pointer to storage- A pointer uihich points to another 

pointer which points to the address of 
the storage to be marked or released. 



MARK is used to "remember" the current position of the top 
of the heap. RELEASE subsequently uses the pointer returned 
by MARK to cut the top of the heap back to the previously 
MARKed position. 



MEMAVAIL 



The MEMAVAIL function returns a long word quantity which is 
the number of free bytes between the stack and the heap. 
This can serve as a rough indicator of the amount of data 
memory available to the system. 

MEMAVAIL takes no parameters. 
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Syitcffl Proc«dur« O*clar*tions in Pascal 

Follouing is a aufflfflary of tha major syitam I/O routina 
daclarations in Pascal. Tha paramatars mrm pushad onto tha 
stack from laft to right, i. a. for FInit. f is pushad onto 
tha stacki followad bg RacBytas. For functions, spaca for 
tha raturn valuas must ba pushad onto tha stack bafora tha 
paramatars. 

All pointar paramatars (pfib. pstring64. pbytas) mrm 4 bgta 
quantities containing tha address of the appropriate struc- 
ture. Integers are tuo bytes long, long integers are four 
bytes long. All strings have a preceeding length byte whose 
contents indicate the length of the string in characters 
(one byte per character), not including the length byte. 

Procedure FInit(f: pfibj RecBytes : integer); 

Procedure FOet(f: pfib)i 

Procedure FPut(f: pfib)i 

Procedure FClose(f: pfibi var mode: Integer); 

Procedure FOpen(var fpathname: pstring64; 
var f: pfib; 
Neuiflag: Boolean). 

Function FReadChar(f: pfib): byte. 

Procedure FWr iteChar <f : pfibi ch: byte; fsize: integer); 

Procedure FSeek(f: pfib; frecno: longint); 

Function BlockIO<f: pfib; fbuff: pbytes; 
fblocks. fbock: integer; 
ReadFlag: Boolean): Integer; 

Procedure FlipDir<Var FDir: Directory); 

Function ValidName(FName: PString64): Boolean; 

Function ValidDirectory (Var FDir: Directory): Boolean; 

Function SearchDir (Var FDir: Directory; FTid: Tid; 

TempFile: Boolean): Integer; 

Procedure DelEntry(Var FDir: Directory; Slot: Integer); 

Procedure InsertEntry ( Var FDir: Directory; Slot: Integer; 
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Var FEntry: DirEntry); 

Procsdur* G«tVolNam«s(Nam*S«arch/ ClaanUp: Boolean; 

FNamc: PString64)j 

Procedure GetDir<FVid: Vidi \/mr FDir: Directoryj 
Var OevBlocked: Booleani 
Var FDevno: Integer; 
Var DevValid: Boolean); 

Procedure PutDir(Var FDir: Directory; FDevNo: Integer); 

Procedure CrackPathName(FPathName: PString64; Var FVid:Vid; 

War FTid: Tid; Var FFKind: FileKind; 
Var FSize : Integer); 
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Writing A Unit Driver 



This chapter discusses the basic structure of a unit driver 
for CCOSi and presents an example of a driver written in 
68000 assembly language. 

Calling Conventions 

Parameters to a unit driver are passed in the 68000 registers as 
f ol loiKs: 

DO. W- Unit Number. UNITBUSY returns its Boolean 
result here. 

DLL- Address of buffer to or from which the data 
transfer is to be made< or the address of a 
parameter block. 

D2. W- Number of bgtes of data to be transferred, or 
a function code for UNITSTATUS. 

D3. W- Block number at which the transfer is to start. 
(This is applicable only to blocked devices. ) 

D4. W- Command- determines the operation (unitread. 
unitbusy. and so on) that the driver is to 
perform. This parameter is described in more 
detail below. 

D5. W- Mode- a device dependent control whose func- 
tion is defined in the driver of the device 
being addressed. It is included to allow 
control of device operations that are not 
defined in the standard I/O operations provi- 
ded by CCOS. 

D7. W- The driver passes a completion code (0 indica- 
tes successful completion) back to the caller 
in this register. This becomes the Pascal 
lORESULT. 
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Unit Driver Command Parameters 

The command passed in register D4. W describes the operation 
to be performed. The command values are summarized here and 
described in greater detail below. When a driver receives 
control from the operating system> the caller has already 
verified from the unit tables that the given command is 
valid for the particular driver. The possible values for the 
command parameter are: 



+ + 

1 I Unitlnstall — Install the driver 

I ! Mhen the operating system installs a unit> either 

! I at boot time or uihen a unit is explicitly assignedi 

! 1 the driver is called luith the install parameter. 

■ ! This section performs any initialization code 

1 1 necessary to set up cyclic buffersi place interrupt 

I 1 vectors and so on. 


1 1 1 UnitRead — Read from the unit 
! 1 Self-explanatory. 


I 2 I UnitWrite — Write to the unit 
! ! Self-explanatory. 


1 3 ! UnitClear — Clear the unit 

! I Reset the device to its initial state. Initialize 

! ! the device, clear pending interrupts and such. 



+ — 


4 


-+- 

1 


Un 


itBusy — Test if unit is busy 
Check if the unit is ready for data transfer. 
Driver returns DO. B = 1 (TRUE) if data is ready for 










transfer. DO. B = (FALSE) otheruiise. 




5 


1 
! 


Un 


itStatus — Device dependent control and status. 
This command is device dependent. Using the 
function code (D2. W>. the driver can return device 
dependent information to the caller. The buffer 
address may be used as a pointer to a UnitStatus 
parameter block. 




6 




Un 


itUnmount — Unmount the unit 
This command is used when the unit is deassigned. 
At this time the driver must perform any clean up 
which includes the restoration of any interrupt 
vectors the driver might have replaced. 
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Driver Notes 



A driver must be completely relocatable. In additioni it 
cannot use the stack or heap for storage between calls. 

The operating system uses registers A4-A6. Thus, a driver 
must either not use these registers, or save and restore 
their contents. 

Each I/O slot is assigned a 256 byte area in static RAM. 
The RAM designated for each slot may be used in any manner 
by the device in the slot. Additionally, a 512 byte static 
RAM buffer is available for very temporary operations. This 
buffer may only be used during a single call to the driver. 
The static RAM locations are: 



0900-09FF 
OAOO-OAFF 
OBOO-OBFF 
OCOO-OCFF 



Static RAM for slot 1 device 
Static RAM for slot 2 device 
Static RAM for slot 3 device 
Static RAM for slot 4 device 



ODOO-OEFF: 512 bytes temporary RAM 

The Concept PROM contains default interrupt handlers. If a 
driver uses system interrupts, the interrupt vector used by 
the driver must be restored when the driver is unmounted. 
The PROM also contains a table of default interrupt vectors 
which must be used when restoring an interrupt vector during 
unmount. The PROM locations for the default interrupt 
vectors are: 

+ + + + 

! 10070-10073 ! CPivecl ! level 1 interrupt vector (SLOTS) I 

+ + + + 

I 10074-10077 I CPivec2 ! level 2 interrupt vector (DCl) ! 

+ + + + 

! 10078-1007B ! CPlvec3 ! level 3 interrupt vector (OMNINET) ! 

+ + + + 

! 1007C-1007F I CPivec4 i level 4 interrupt vector <DCO) ! 

+ + + + 

! 10080-10083 ; CPivec5 I level 5 interrupt vector (TIMER) ! 

+ + + + 

i 10084-10087 J CPivec6 I level 6 interrupt vector (KYBD) J 

+ + + + 

i 10088-1008B ! CPivec7 ! level 7 interrupt vector 

+ + + + 
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A 8«fflple unit driver 

The following code is the source to the non-interrupt 
driven datacomm driver. It provides a good overview of 
driver construction methodologies and architecture. 

Note the use of the jump table the driver uses to call its 
own internal procedures. The use of this jump table makes 
the driver relocatable since it does not have to be assigned 
to any one memory area. Remember that all drivers must be 
relocatable. 

; File: drv. dcomm. text 
i Date: ll-Jan-83 

I DENT DRVDTACOM 
GLOBAL DRVDTACOM 



DRVDTACOM - The DataComm unit driver 

Parameters: DO. W - Unit number 

Dl. L - Address of buffer 

D2. W - Count 

D3. W - Block Number 

D4. W - Command 

D5. W - Access Mode 

Input Parameters: 
Command Unit Addr Count Block Mode 




1 
2 
3 
4 
5 
6 



Install 

Read 

Write 

Clear 

Busy 

Status 

Unmount 



DO. W 
DO. W 
DO. M 
DO. W 
DO. W 
DO. W 
DO. U 



Dl. L 
Dl. L 



D2. W 
D2. W 



D3. M 
D3. M 



D5. U 
D5. W 



DLL D2. W 



Result values: 
lORESULT Busy 

D7. W 

D7. W 

D7. W 

D7. W 

D7. W DO. B 

D7. W 

D7. W 



Some UART ecLuates 

DcmPort equ ♦30f2l 

Uda equ O 

Ust equ 2 

Ucm equ 4 

Uct etiu 6 



RdBit 



equ 



Slot 6 (datacomm 1> UART pointer 

UART data port offset 
UART status port offset 
UART command port offset 
UART control port offset 

Busy bit for input 
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Busg bit for output 

Auto line f»cd suppress flag 

i Line feed 

Carriage return 
Control-Q - Start output 
Control-S - Stop output 



include '/ccos/os. gbl. asm. text ' (not listed) 

list O 

include Vccos/os. gb 1. asm. text ' 

list 1 

page 



WrBit 


equ 


4 


LfBit 


equ 


2 


If 


eq,u 


•OA 


cr 


equ 


«0D 


cq 


equ 


«11 


cs 


ei^u 


♦ 13 



DRVDTACOM 

bra. s 
data, b 
data. b 
data. b 
data. b 
data. b 

hm data. b 

hmlen equ 

comlOrq movem. 1 
moveq 
move. 1 
tst. u 
bit. s 
move. 1 
move. 1 
cmp. ui 
bgt. s 
move. Ill 
mulu 
adda. ui 
move. 1 
move. b 
ext. tu 
subq.. w 

Isl. UI 

adda. ui 
clr. UI 
lea 
Isl. Ui 
move. UI 
jsr 
DCMRtrn movem. 1 
rts 



comlQrq 



IS 

83.01. 11 

O 

hmlen 

'Non-interrupt OataComm driver' 

7.-hm i 



This is the driver header 

start of code 

device not blocked 

valid commands 

date 

fill 

header message length 



dl-d6/a0-a6> -(sp) 

»2. d7 

dl.aO 

dO 

DcmRtrn 

pSysCom. W. a2 

SCdevtab(a2>. a2 

(a2)+. dO 

DcmRtrn 

dO. d6 

»UTlen, d6 

d6>a2 

♦DcmPort. al 

UTslt(a2). d6 

d6 

#6. d6 

ttS. d6 

d6. al 

d7 

DcmTABL. a2 

#1. d4 

0(a2, d4. ui). d4 

0(a2. d4. ui) 

(sp >+, dl-d6. a0-a6 



; Save those registers! 

Set lORESULT to 2 

Data address to AO 

Is unit number valid? 

No. return (lOresult = 2) 

(A2) = SYSCOM 

(A2) s device table 

Is unit number valid? 

No. return (lOresult = 2) 

Compute offset into Unit Table 

« 

Get painter to Unit Table entry 

Get slot 6 UART pointer 

Get slot number (6-7) 

Compute UART pointer for slot 
* 

Clear lORESULT 

D4 to uord count 
D4 - dist from DcmTABL 
Go to appropriate driver 
i Restore those registers! 



DcmTABL data, ui DcmlNST-DcmTABL > Internal routine jump table 
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data, w DcmRO-DcfflTABL 

data, ui DctnMR-DcmTABL 

data, u DcmCLR-DcfflTABL 

data, ui DcfflBSY-DcmTABL 

data, w OcmST-OcoiTABL 

data, u DcmUNMT-DcmTABL 



DcffllNST 
DcffllNST rts 

DcmUNMT 
DcmUNMT rts 

DcmST 
DcmST rts 

DcmRD 

OcmRD 

CrdLoop subq. ui 
bmi. s 

CrdBusy btst 

boff. s 
move, b 
bra. s 

CrdExit rts 
page 

DcmMR 

DcfflWR 

CurLoop subq.. ui 
bmi. s 

btst 
boff. s 
move, b 
cmpi. b 
bne. s 



#1. d2 
CrdExit 

#RdBit,Ust(al) 
CrdBusy 
Uda(al), (aO)+ 
CrdLoop 



Curl 



btst 
boff. s 
move, b 
cmp i. b 
bne. s 



#1. d2 
CuirExit 

#RdBit.Ust(an 

Cuir2 

Uda(al ), 00 

#csi DO 

Cur2 

#RdBit. Ust(al) 

Cuirl 

Uda(al),DO 

#cq, DO 

Cuirl 



> Return 



i Return 



i Return 



More to read? 
No. 

Is char in UART? 

No. Try again. 

Yes. Fetch next character. 



Return 



More to write? 
No. 

Is char in UART? 

No< output next character 

Get character 

Stop output? 

Noi ignore character 

Is char in UART? 
Noi utait some more 
Get character 
Start output? 
Noi ignore character 
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Cwr2 



Cwr3 



CutrExit rts 



CrtOutl 



move, b 


(A0)+, dO 


bsr. s 


CrtOutl 


cmpi. b 


#cr, dO 


bne. s 


Cuira 


btst 


#LfBit, dS 


bon. s 


Cur3 


moveq. 


#lf. dO 


bsr. s 


CrtOutl 


bra. s 


CurLoop 



Get next character. 

Output character 

Was it a <CR>? 

No> go on 

Suppress line feed insertion? 

Yesi bgpass <LF> insertion 

Add a <LF> 

Output character 

Check if finished with output 

Return 



This routine preserves all registers 



CrtOutl 

CurBusy btst «MrBit. Ust (al ) 

boff. s Cb/rBusy 

move. b dO> Uda (al ) 

rts 

page 

DcmCLR 
OcmCLR rts 
DcmBSY 
Returns: DO. B - Result 



Is UART output busy? 
Yes. Try again. 
Output the character 
Return 



Return 



DcmBSY 


moveq 


«0. dO 






Assume FALSE (no character readi 




btst 


#RdBit,Us 


t(a 


1) 


Character to read? 




boff. s 


DcmBSYr 






Noi return 




moveq 


*l.dO 






Set TRUE 


DcmBSYr 


rts 

page 
end 








Return 
DrvDtaCom 



CCOS Manual 



Page 67 



standard Drivers 



This chapter deals uiith the operation of the standard CCOS 
drivers. There are two tgpes of standard drivers: resident 
driversi uhich are aluiays present in the system/ and load- 
able drivers, uhich are loaded after the boot process is 

omplete. Corvus-supp 1 ied loadable driver files have names 
that are prefixed with a "DRV. " and reside on the CCSYS 
volume. 

Most driver operations are implemented in the extensive 
functions in the CCLIB library (see "System Library Users 
Guide"). Before performing any exotic programming) it's a 
good idea to check and see if uihat you are trying to do 
hasn't already been done. 

Direct communication with drivers is accomplished with the 
Pascal unit I/O mechanism. Specif ical lyi UnitRead is used to 
retrieve data from the driver, UnitWrite is used to send 
data to the driver. Unitlnstall initializes the driver. 
UnitClear flushes any buffers the driver may maintain, and 
UnitBusy is used to determine whether or not the driver has 
any data available. The remaining unit I/O procedure. Unit- 
Status, has special significance. 

Special Functions 

The UnitStatus call is used primarily for those functions 

which are not generic to all drivers. For example, setting 

the interleave and skew is a function that has meaning only 
in the context of a disk driver. 

The special functions available to each driver will be 
described in the section dealing with that driver. The form 
of a UnitStatus call (from Pascal) is: 

UnitStatus(UnitNumber, Buffer. FunctionCode)i 

where "UnitNumber" is the Pascal device number assigned to 
the device in question. "FunctionCode" is a driver depen- 
dent code for the action to be performed, and "Buffer" is a 
pointer to an arbitrary data structure which may be used 
either to pass information to the driver or receive infor- 
mation from it. UnitNumber and FunctionCode are always 
integers, while Buffer is always a VAR parameter (i.e. its 
address is passsed). 
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Tht data structure that Buffer points to mill be described 
for each driver using Pascal syntax. Simple data struc- 
tures will be represented as "word" or other base data 
tgpei while more complex structures will be shown as record 
declarations. 

UnitStatus calls may also be made from a machine language 
program. See chapter 3> "Making System Calls"i for details. 
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Driver Ovcrvisu 

Drivers are the toftuare routines that control physical 
devices under CCOS. At boot timei CCOS loads its drivers 
from the boot volume and assigns them to the various physi- 
cal devices on the system. This assignment process may also 
be performed manually uith the ASSIGN utility. 

A one-to-one correspondence between devices and drivers 
should not be assumed. A single driver routine may handle 
more than one physical device: for examplei the DTACOM 
driver is responsible for both RS-232 ports. In additioni a 
single physical device may be addressed by more than one 
driver. For example, the second RS-232 port may be control- 
led by both the printer driver and DTACQM driver. 

When a single driver controls more than one physical device, 
it is accessed as though there uere a separate driver for 
each device. There is only one driver to control a local 
hard disk, although each volume on the disk will appear as a 
seperate device. 

Direct communication with drivers is accomplished with the 
low-level unit I/O routines: UNITREAD, UNITURITE, UNITBUSY, 
UNITSTATUS. and UNITCLEAR. Note that not all drivers support 
all unit routines! However, all drivers do support UNITMOUNT 
and UNITUNMOUNT. which are used to associate drivers with 
units. 

To communicate with a driver you must know the unit number 
CCOS has assigned to it. The basic drivers the system has to 
work with are as follows: 

Driver What it does 

DRV. ADISK The (read only) Apple floppy 

disk driver. 

DRV. DISPHZ and 

DRV..DISPVT The display drivers, one for 

each screen oritentation. 

DRV. DTACOM The datacomm driver for the 

RS-232 ports. 

DRV. EPRNT The enhanced printer driver. 

DRV. FDISK The 8" floppy disk driver. 

DRV. KYBD The keyboard driver. 
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DRV. SYSTRM Keyboard and display. Us«s 

DRV. KYBO and DRV. DISPxx 

DRV. TIMER The timer driver. 

DRV. DISPVT The vertical display driver. 

DRV. DISPHZ The horizontal display driver. 

In addition to these driversi (which are referred to as 
loadable drivers) there are several resident drivers that 
are bound into the CCOS kernel. These are the SLOTIO> LOCAL 
(disk) and OMNINET drivers. 

As mentioned above, drivers are assigned to unit numbers 
when CCOS is booted. The standard unit assignments are: 

Unit Driver 








NULL device 


1,2 




DRV. SYSTRM 


4 




Boot volume 


5 




Default volume 


6 




DRV. PRNTR 


9 - ? 




DRV. ADISK, DRV. FDISK 


? - (MaxDev- 


-7) 


LOCAL, OMNINET, or user 


MaxDev - 6 


(30) 


SLOT 10 


MaxDev - 5 


(31) 


DRV. DTACOM 


MaxDev - 4 


(32) 


DRV. DTACOM 


MaxDev - 3 


(33) 


OmniNet 


MaxDev - 2 


(34) 


DRV. TIMER 


MaxDev - 1 


(35) 


DRV. KYBD 


MaxDev 


(36) 


DRV. DISPxx (may be DISPHZ 
or DISPVT) 



MaxDev is the largest device number supported by the opera- 
ting system, and is set to 36 in CCOS version 1. la. The 
DTACOM, OMNINET, TIMER, KYB, and DISPLAY drivers are always 
loaded starting at MaxDev and working down, and this will 
remain constant in future releases of the system. Programs 
written to use these devices should use the standard library 
routines to determine the device number, as hardcoding the 
the device number may mean that the program will not work 
correctly on future operating system releases. 

Some of the device assignments are not fixed. This is espe- 
cially true in the case of disks (units 4,5, and 9 through 
MaxDev - 7), which may be local disks (Apple or 8 inch), 
local hard disks, or Omninet disks. Unit 4 is always the 
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volum* you boot froin> and unit 5 is gtncrally th« dvfault 
volum*. Thase units might be floppias< local disksi or Omni- 
nat> so tha physical device assigned to these units will 
vary. 

If the boot is performed from a hard disk> any floppy disks 
uill be mounted starting on unit 9 and working up. 

Units 3/ 7i and 8 are unassigned and may be used for user de- 
vices. Additionally! any of the disk units that tk not in 
use may be assigned to a user device. 
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The Console/Systerm Driver 

The console/systerm driver (DRV. SYSTRM) is responsible for 
the keyboard and display I/O of the Concept under CCOS. It 
addresses two separate drivers: DRV. KYBD and either the ver- 
tical display driver DRV. DISPVT or the horizontal display 
driver DRV. DISPHZ. 

The console and systerm appear as units 1 (console) and 2 
(systerm). Although DRV. SYSTRM is used for both devicesi 
there are two important operational differences: 

1. UNITREADs from /CONSOLE will be echoed 

to the screen, while UNITREADs from /SYSTERM 
will noti 

2. UNITREADing an escape character (ASCII *18) 
from /SYSTERM will return TWO escapesi UNIT- 
READing an escape from /CONSOLE will not. 



CCOS Manual Page 74 



Thd KYBD Driver 

Rsading characters from the keyboard driver is normally done 
with the standard READ routine in whatever high level lang- 
uage is being used. UNITREADs may also be employed where a 
finer control is desired. 

The KYBD driver recognizes three special UNITSTATUS calls: 



Function code : Name: Send Raw 

StatusRecord 1 word 

This call sets or clears the SEND RAW flag in the driver. 
If the StatusRecord parameter is 0, then flag is cleared; 
if it is 1 then the flag is set. 

If the SEND RAW flag is seti the keyboard driver will send 
all characters to the useri including control-S and 
control-Q. 



Function code : 1 Name: Break flag 

StatusRecord 1 word 

This call returns the value of the BREAK flag (in Status- 
Record)! then clears it. If the StatusRecord is on returni 
the flag was clear. If it is 1 then the flag was set. 

The BREAK flag represents the status of the Break key on the 
Concept keyboard. If it is seti then the Break key has been 
pressed since the last time this function was called. The 
Break flag is reset upon unit initialization of the keyboard 
driver or the execution of this call. 



Function code : 2 Name: Chars available 

StatusRecord 1 word 

This function returns the number of characters waiting in 
the keyboard input buffer. 

EXAMPLE: The following Pascal fragment illustrates the use 
of function code to set the SEND RAW flag: 

CONST 

KEYB = 36i -C KEYS driver unit > 

VAR 

StatusCode : Integer; < Occupies 1 word > 
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BEGIN 

StatusCodc :- li -C S*t "SEND RAW" > 

UnitStatus(KEYB.StatusCodc, 1>; < Perform call > 



The Keyboard Translation Tables 

The keyboard driver receives keyboard characters after they 
have been altered by the keyboard translation tables. These 
tables are used by the keyboard driver to generate the 
character seq.uences corresponding to the key pressed by the 
user. If a different set of key caps are used or a differ- 
ent set of character codes are desired then neu Translation 
Tables must be built and loaded into the system. 

The keyboard is connected to the computer by a transmission 
line. Through the line> the keyboard sends keycodes descri- 
bing which key has been pressed or released. These key- 
codes, in conjunction uith the Translation Tables, are used 
to generate the character sequences produced by the keyboard 
driver. Some keys, like the Shift key. affect uhich charac- 
ters are generated uihen other keys are pressed. Some keys 
cause character sequences to be generated. Mhat happens 
when a key is pressed or release is determined by the Trans- 
lation Tables. 

The Concept keyboard sends one byte of data, the keycode. 
uhen a key is pressed, and another byte when the key is 
released. The tuio bytes sent differe in the most significant 
bit: when the key is pressed, the MSB is set to 1. uhen it 
is released, the keycode's MSB is clear. The keycode genera- 
ted is used as an index into the keyboard translation tables 
to generate the character(s> that the keyboard driver will 
return. 

In order to build the Translation Tables a keycode map is 
needed. This map shows the keycode values for every key on 
the keyboard. Figure 1 is a keycode map for the current 
keyboard (Version 04. Selectric (R) style keyboard). Nor- 
mally, the key caps show which character is generated for 
each keycode transmitted to the keyboard driver. Figure 2 
is a key cap map for this same keyboard. 

Version 04 keyboard key caps have either 1 or 2 symbols on 
them. A single symbol key cap specifies that the character 
is the same when it is either shifted or unshifted. except 
for the alphabet characters which get lower case if unshift- 
ed. Key caps with two symbols have the character for the 
lower symbol when unshifted and the character for the upper 
symbol when shifted. 
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Figure 1 
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Figure 2 
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The translation tables must b» defined in an assembly lang- 
uage program, such as the program CSK. REV4. TEXT listed in 
section 6.0. This program is actually a group of tables. 
The first table is TRANTBL which points to seven the 
translation tables. 

The seven entries in this table point to the translation tables 
in the following order: 

1) Shift Table (STABLE) 

2) Regular table (RLTABLE) 

3) Escape « sequence table (ETABLE) 

4) Standard multiple character sequence table (SMTABLE) 

5) Caps qualifier flag table (CQTABLE) 

6) Release table (RLTABLE) 

7) Break keycode table (BKEYCOD) 

These entries must be in the above order. 

The Shift Table 

This table contains one byte for each keycode *00 - $3?. 
The byte is normally the character code for the specified 
keycode when the SHIFT key is depressed. Four special byte 
values are 
used: 

9E - use standard multiple character sequence table 
9F - use caps qualifier flag table 
9D - use escape # sequence table 
00 - no character for this keycode. 

The Regular Table 

This table contains one byte for each keycode $00 - *5F. 
The byte is normally the charater code for the specified 
keycode when the SHIFT key is not depressed. Four special 
byte values are used: 

9E - use standard multiple character sequence table 

9F - use caps qualifier flag table 

9D - use escape # sequence table 

00 - no character for this keycode. 

The Escape Sequence Table 

This table is used when a table code of *9D is found in key 
closure or a table code of »9D is found in key shift table 

CCOS Manual Page 79 



(STABLE) or th« regular table (RLTABLE). It spacifias a key 
which has an ESC # character sequence. Each keycode may 
have a different character based on the state of the tuo 
(lualifier keys (SHIFT and COMMAND). 

Each table entry has the form (entry length « 10 bytes) : 

1) Keycode (1 byte). 

2) filler byte : its value is O (1 byte). 

3) UnSHIFTed & UnCOMMANDed (2 bytes). 

4) SHIFT only (2 bytes). 
9) COMMAND only (2 bytes). 

6) COMMAND & SHIFT together (2 bytes). 

Values for the version 04 keyboard: 



KEYCODE I FILL 



US/UC 



S only I C only ! C/S 



KEY NAME 



»20 
»21 
«22 
»23 
»24 
»4A 
»58 
*S9 
$5A 
»9B 
*5C 
«CA 



00 


00 


OA 


00 


01 


OB 


00 


02 


OC 


00 


03 


OD 


00 


04 


OE 


00 


FF 


FF 


00 


05 


OF 


00 


06 


10 


00 


07 


11 


00 


08 


12 


00 


09 


13 


00 


FE 


FE 




IE 


Function 


key 


1 


IF 


Function 


key 


2 


20 


Function 


key 


3 


21 


Function 


key 


4 


22 


Function 


key 


5 


FF 


COMMAND ( 


closure) 


23 


Function 


key 


6 


24 


Function 


key 


7 


25 


Function 


key 


8 


26 


Function 


key 


9 


27 


Function 


key 


10 


FE 


COMMMAND 


(re 


lease 



The Standard Multiple Character 5eq.uence Table 

This table is used on key closure uihen a *9E table code is 
in the shift table (STABLE) or regular table (RLTABLE). 
Every entry with a »9E table code in the STABLE or RLTABLE 
must be in this table. 

Each entry is composed of 3 fields. 1) the keycode. 2) the 
string length, and 3) the actual string. The string is the 
seq,uence of character codes placed in the buffer for this 
key. The Table does not have to be in keycode order. The 
table ends with a special keycode of *FF and length of O. 
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Values for the version 04 keyboard: 

KEYCODES I STRING LENGTH I STRING 

(. + 

»1B »43 (esc C) 

«1B «48 (esc H) 

«1B »64 (esc d) 

«1B «44 (esc D) 

»1B «42 (esc B) 

»1B »69 (esc i) 

»1B «41 (esc A) 

♦30 *30 (00) 
END OF THE TABLE 



«00 


(cursor 
right) 


2 


*03 


(HOME 
up ) 


2 


♦07 


(enter) 


2 


«08 


(cursor 
left) 


2 


»0B 


( cursor 
doujn) 


2 


»3A 


(back 
tab) 


2 


*5D 


(cursor 
up ) 


2 


»4E 
»FF 


(double 
zero) 


2 




The Caps Lock and Qualifier Flag Table 

This table contains one byte for each keycode *00 - *5F. 
The keycode is a direct index into the table. Each byte is 
a set of flags. All unused bits must be cleared (value = 
0). The high order bit is the caps lock flag for the cor- 
responding Keycode. If the bit is set/ this keycode gener- 
ates a shifted character if the CAPS LOCK key is locked. 
Bit 6 is a special COMMAND key flag. The remaining bits are 
special key qualifier flags. 

The bits currently defined are : 

7 - Caps lock flag uhen set means this keycode gener- 
ates a shifted character (uhen Caps lock is locked. 

6 - Special COMMAND key flag: 

O uses STABLE for closure - keycode high order bit 

closure. 
uses ETABLE for release - keycode has high order 

bit set. 
special non-repeating key. 
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9 
4 
3 
2 
1 




Command — 
Alternate 
Fast 

Caps lock 
Control 
Shift 



These bit indicate uhich type of 
special key the keycode represent 
At most, one bit can be set on. 



The values for the version 04 keyboard are listed in the 
attached program CSK. REV4. TEXT. 



The Release Table 

This table specifies which keycodes have an action on key 
release. Each table has 2 fields. i> the keycode. and 2) the 
action code. 

The action code has 3 possible value types. If the action 
code is »9D it specifies a key with a escape » sequence 
table <ETABLE) entry. If the action code is S9E it speci- 
fies a qualifier keycode. Any other action code is a char- 
acter code to be placed into the buffer. The end of the 
table is specified by a special keycode of *FF and an action 
code of *00. 

Values for the version 04 keyboard: 



KEYCODE 


ACTION CODE 


KEY NAME 


♦ IF 


♦9E 


Right SHIFT 


»3C 


♦9E 


CAPS LOCK 


»3E 


♦9E 


Left SHIFT 


$48 


♦9E 


Control (CTRL) 


♦49 


♦9E 


FAST 


♦4A 


♦9E 


COMMAND 


♦4C 


♦9E 


Alternate <ALT> 


♦FF 


♦00 


NULL keycode - END OF TABLE 



The Break Key Code Table 

This table consists of one byte. It is the Keycode for the 
key which performs the start/stop toggle. The value for the 
version 04 keyboard is : ♦DF. This is the keycode for BREAK 
closure. 



Translation Table Examples 
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Singl* characters 

Thii section givas the usar savaral axamplas of hou to 
changa tha kayboard tranlation tablas. Tha axamplas daal 
with tha unmarked key on the top row of keys (keycode *9E). 

The first example is to use the unmarked key (keycode *5E> 
as a standard alphabetic character key. This involves 
setting a value in the translation tablas for the unshifted< 
shiftedf and qualifier cases of the key. 

A. These tables use the keycode value as an offset into the 
tables. Locate the unmarked key on the keyboard and 
note tha position. Locate the same key in the keycode 
chart and note the keycode for closure (5E). 

B. For this example let us assume the desired output of the 
Translations Tables is to be the alphabetic character 
't' for unSHIFTedi 'T' for SHIFTedi and 'T' for CAPS 
LOCK. 

C. Create a file with the same tables as the program 
CSK. REV4. TEXT. 

D. Locate the position 5E in the SHIFT Table. Note that 
the current entry is 9F hexi which indicates the key is 
a qualifier. In this example the SHIFT Table entry will 
be changed to a 'T' or 94 hex. Edit the STABLE at 
postion 9E hex to contain the value 94 hex. 
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Th« shift tabic is indsxvd bg ktgcod*. Each byts r«pr»s>nta 
th» character coda for tha corrasponding kagcoda. 

Tha character sgmbol is abova aach character coda 

snc • special value for Standard Multiple Character Sequence (*9E) 
QUL - special value for Qualifier (*9F> 

EST >° special value for Escape Sharp Character Sequence (*9D) 
... = No keg for this kegcode 



STABLE 



DATA. 


B 


DATA. 


B 


DATA. 


B 


DATA. 


B 


DATA. 


B 


DATA. 


B 


LSB 





SMC 3 9 SMC 6 . - cr SMC 1 7 SMC 4 8 9 2; MSB 
•9E, »33, »39, »9E, ♦36, *2C, »2D. »0D< •9E, *31, »37, •9E, »34, »38, •33, •32 ; •OO 

+ ... -C del cr > I . . . ) ? P _ : "^ " QUL 
*2B, •00> •7B. •7F. «0D> •7D. »7C, •00. •29, •3F, •SO, •SF, •SA, *7E, •22. *9F i •lO 

EST EST EST EST EST « X R T F V B 

•9D, ^90, •9D, •9D, •9D. •CO, •00, •00. ^24, ^23, •52. ^34, ^46, •47, •56, ^42 ; ^20 

e # M E S D X C esc ! SMC Q QUL A QUL Z 
•40, •23, ^57, ^45, •SS, ^44, •SB, •43, •IB, ^21, •9E, •SI, •9F, •41, •9F, •SA i ^30 

-^fcYUHJNM QUL QUL QUL sp QUL SMC 
«SE, •SA, ^39, •SS, «48. •4A, •4E, •4D, •9F, •9F, •9F, ^20, •9F, •SO, •9E, •2E i ^40 

♦ ( I O K L < > EST EST EST EST EST SMC QUL QUL 
•2A, •28, •49, •4F, •4B, •4C, •SC, •SE, ^90, ^90, ^90, ^90, ^90, •9E, •9F, •9F i •SO 

01234S6789ABCDEF 



Change the last line to the following 



V 
• < I K L < > EST EST EST EST EST SMC T QUL 

DATA. B »2A, 928, »49, •4F, »4B, •4C, »3C, •SE, »9D, ^90, •9D, ^90, ^90, •9E, ^34, •9F ; •SO 
LSB 0123456789ABCDEF 

E. Locate the position SE in the REGULAR Table. Note that 
the current entry is 9F hex which indicates the keg is a 
qualifier. In this example the REGULAR table entry will 
be changed to a 't' or 74 hex. Edit the RTABLE at pos- 
ition SE hex to contain the value 74 hex. 

RTABLE (The Regular Table) 

SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 2; MSB 
DATA. B •9E, •SS, ^39, •9E, ^36, ^20, *SD, •OD. •9E, •SI, ^37, •9E, ^34, •SS, •SS, ^32 i •OO 

= ... C bscrl \... O / p - ; ^ '' QUL 
DATA. B •SD, •OO, •SB, •08. «0D, •SD, •SC, •OO, •SO, •2F, ^70, ^20, •SB, ^60, *27, •9F , •lO 

EST EST EST EST EST 4 S r t f g v b 

DATA. B •9D, •9D, ^90, *9D, ^90, •00, •OO, •OO, ^34, •SS, ^72, ^74, ^66, ^67, *7&. *62 i •20 

23w e s d X cescl SMC q QUL a QUL z 
DATA. B •32, •SS, ^77, •65, ^73, ^64, »78, ^63, •IB, •SI, ^09, ^71, •9F, ^61, •9F, •7A , •SO 
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67«uhjnni QUL QUL QUL sp QUL SMC 
DATA. B •36. *37. •79, •73. •68, •6A, *6E. tSD. •9F, •9F, •9F, •20, •9F, «30, •9E, •2E ; *40 

8 9 i o k 1 , EST EST EST EST EST SMC QUL QUL 

DATA. B •SS, ^39, ^69, •6F, ^68, *bC. •2C, •2E, •9D, •9D, •9D, ^90, ^90, •9E, •9F, •9F ; •50 
LSB 0123456789ABCDEF 

Change tha last line to the follouiing: 

8 9 i o k 1 , EST EST EST EST EST SMC t QUL 

DATA. B •SS, »39. •69, •6F. •6B- •6C, •2C, •2E, •9D, ^90, ^90. •9D, •9D, •9E, ^74, «9F i •SO 
LSB 0123456789ABCDEF 

~. Locate the position 9E in the CAPS/QUALIFIER Table. 
Note that the current entry is 00 hex uhich indicates 
the key does not have ant) flags set in the CAPS/QUALI- 
FIER Table. In this example the CAPS/QUALIFIER Table 
entry uill be changed to a 80 hex. to set the Caps lock 
flag in the table. Edit the CQTABLE at position 5E hex 
to contain the value 80 hex. 

Each byte has 8 flags : 

D7 a: Caps lock flag : uhen set means this keycode generates a 

shifted character tnhen the Caps lock qualifier flag is set. 
D6 = Qualifier has an ESC # sequence flag. Uhen set then must process 

the keycode as a non-repeating ESC # sequence. Also has a Release 

sequence. 



D5 » Command — 
D4 « Alternate 
D3 > Past 
D2 = Caps lock 
Dl = Control 
DO = Shift 



This bit says uhich type of Qualifier 
key the Keycode represents. 



CQTABLE (The caps/qualifier table) 

DATA. B •OO, •00, •OO, •OO, •OO, $00, 400, •OO. •OO, •OO. •OO. •00, •OO, •OO, •OO, •OO 

DATA. B •OO, •00. •OO. •OO, •OO, •OO, •OO. •OO. •OO. •OO. •SO. •OO, •OO, •OO. •OO. •Ol 

DATA. B •00, •OO. •OO, •OO. •OO. •OO. •OO. •OO. •OO. •OO. •SO. •SO. •SO, •SO, •80. •BO 

DATA. B •00. •OO. •SO. •SO. •SO. •SO. •SO. •SO. •OO. •OO. •OO. •SO. ^04. •SO. •Ol. •80 

DATA. B •OO. •OO. •SO. •SO. •SO, •SO, •SO. •SO. ^02. •OS. *bO. •OO. •lO, •OO, •OO, •OO 

DATA. B •OO, •00. •SO, •SO, •BO, •80, •OO. •00. •OO, •OO. •OO. •OO. •OO. «00. •OO. •OO 

LSB 01234S67S9ABCDEF 



MSB 
•00 

• 10 
•20 
•30 
•40 

• 90 



Change the last line to the follouiing: 
DATA. B •OO. •OO. •SO. •80. •SO. •SO. •OO. •OO. •OO, •OO, •00, •00, •OO, •OO. •SO. •OO : •SO 
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LSB 



Save the edited version of the Keyboard Translation 
Tables to a test file. Assemble the file as follows: 

ASM68K filename [RETURN] 

Upon completion of the assembly, link the file for q.uick 
load as folloiiis: 

LINKER filename [RETURN] 

The last step is to load the neui Keyboard Translation 
Table. 

Press [WndouiMgr]. 

Press [LdKybdCh]. 

Enter the filename, [RETURN]. 

A successful load of the tables ulll be noted in the 
Command Line. Begin testing the results of the new 
tables by pressing the unmarked key. Use the SHIFT key 
and the CAPS LOCK key and note the results. 
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Translation Table Examples 
Multiple character sequences 

This example deals with the modification of the standard 
multiple character sequence table. In this example, the 
translation tables uill be modified so that the unmarked 
keg (keycode «5E) ujiU be treated as cursor right. 

A. Create a file with the same entries as the CS!^. RE:V4. TEXT 
file. 

B. Locate the standard multiple character sequence table 
uiithin the file. It should be as follows: 

Standard multiple character sequence table 

FORMAT : (HEYCODE, LENGTH, CHARACTER_SEQUENCE) 

The LENGTH field is the number of characters in the CHARAC- 
TER SEQUENCE field. The CHARACTER SEQUENCE is the charact- 
ers to return for the Keycode. 



SMTABLE 

DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 



KEYCODE LENGTH CHARACTER SEQUENCE 



»00, 
*03, 
«07, 
SOS, 
«0B, 
$3A, 
*5D, 
*4E, 
*FF, 



2, 
2, 

2, 
2, 
2, 
2, 
2, 



$1B, »43 
«1B, »48 
*1B. »ib4 
*1B. »44 
*1B, »42 
*1B, «69 
»1B, *41 
*30, $30 



CURSOR RIGHT 

HOME UP 

ENTER 

CURSOR LEFT 

CURSOR DOWN 

BACK TAB 

CURSOR UP 

DOUBLE ZERa-( 00 KEY ) 

NULL KEYCODE - END OF TABl 



Enter a duplication of the first entry in the table as 
the last entry in the table Change the KEYCODE from ♦00 
to *5E. The unmarked key is now defined as CURSOR RIGHT. 



SMTABLE 

DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 



KEYCODE LENGTH CHARACTER SEQUENCE 



*00, 
*03, 
*07. 
$08, 
«0B, 
»3A, 
«5D. 
»4E, 
«5E, 
»FF, 



2, 
2, 
2. 
2, 
2, 
2, 
2, 
2, 
2, 




«1B, »43 
SIB, S48 
SIB, S64 
SIB, S44 
SIB, S42 
SIB, S69 
SIB, S41 
S30, S30 
S1B,S43 



CURSOR RIGHT 

HOME UP 

ENTER 

CURSOR LEFT 

CURSOR DOWN 

BACK TAB 

CURSOR UP 

DOUBLE ZERO-( 00 KEY ) 

CURSOR RIGHT 

NULL KEYCODE 



END OF TABl 
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D. Locate the position 5E in the shift table. Note that 

the current entry is 9F hex which indicates the key is a 
qualifier. In this example the shift table entry will 
be changed to a «9E hex. Edit the STABLE at postion 5E 
hex to contain the value 9E hex. 

The character symbol is above each character code 

SMC = special value for Standard Multiple Character Sequence (*9E) 
QUL = special value for Qualifier (*9F) 

EST = special value for Escape Sharp Character Sequence (»9D) 

= No key for this keycode 

STABLE (The shift table) 

SMC 3 9 SMC 6 - - cr SMC 1 7 SMC 4 8 5 2 ; MSB 
DATA B «9E, «33, «39, *9E, *36, »2C, »2D, »0D- »9E, $31, »37, *9E, t34, *38, *35, *32 i «00 

+ <delcr} I... ) ? p _ ■^ " QUL 
DATA B »2B, »00. *7B, »7F, »0D. «7D, »7C, *00, »29, *3F, 450, »5F, *3A, *7E, »22, *9F ; SIO 

EST EST EST EST EST % X R T F G V B 

DATA B *9D, *9Di «9D, »9D, *9D, »00, »00, «00, «24, «25, »52, »54, »46, »47, «56, $42 ; «20 

e#WESDXCesc! SMC Q (JUL A QUL Z 
DATA. S «40. »23. «57, »45, »53, «44, *58- «43, «1B, »21, »9E, *51, *9F, «41, »9F, «5A : $30 

" S' Y U H J N M QUL QUL QUL sp QUL SMC 
DATA B *5E, «26. »59, »55, »4S, »4A. »4E, «4D, »9F, »9F, *9F, *20. »9F, «30, *9E, »2E i *40 

^ < I K L < > EST EST EST EST EST SMC QUL QUL 

DATA B $2A, »2S. »49, *4F, «4B, »4C, *3C, «3E, *9D, »9D, »9D. »9D, *9D, »9E, *9F, *9F ; «50 
LSB 0123456789ABCDEF 

Change the last line to the follouiing: 

» < I O K L < > EST EST EST EST EST SMC SMC QUL 

DATA. B »2A, *28. «49, »4F, «4B, *4C, *3C. «3E, *9D, *9D, «9D, »9D. *9D, «9E, »9E, «9F ; »50 
LSB 0123456789ABCDEF 

E Locate the position 5E in the regular table. Note that 
the current entry is 9F hex uihich indicates the key is a 
qualifier. In this example the regular table entry will 
be changed to a 9E hex. Edit the RTABLE at position 5E 
hex to contain the value 9E hex. 

The character symbol is above each character code 

SMC = special value for Standard Multiple Character Sequence (*9E) 

QUL = special value for Qualifier (*9F) 

EST = special value for Escape Sharp Character Sequence (*9D) 
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... = No key for this keycode 
RTABLE (The regular table) 







SMC 


3 


9 


SMC 


6 


, 


- 


cr 


SMC 


1 


7 


SMC 4 


8 


5 


2 


, MSB 


DATA. 


B 


»9E, 


»33. 


»39, 


»9E, 


*36, 


♦2C, 


»2D, 


*0D, 


*9E, 


«31, 


*37, 


*9E, 


*34, 


«38, 


$35, 


t32 


, «00 






= 




C 


bs 


cr 


: 


\ 







/ 


P 


- 


, 


* 


' 


QUL 




DATA. 


B 


»3D, 


»00, 


♦ 5B. 


»08. 


SOD, 


»5D, 


»5C, 


*00- 


*30, 


«2F, 


»70. 


«2D, 


*3B, 


»60, 


*27, 


«9F 


; »10 






EST 


EST 


EST 


EST 


EST 








4 


5 


r 


t 


f 


9 


V 


b 




DATA. 


B 


»9D, 


»9D. 


»9D, 


*9D. 


»9D, 


»00, 


SOO, 


»00, 


»34, 


«35, 


*72. 


*74, 


%bh, 


»67, 


»76, 


»62 


, *20 






2 


3 


111 


e 


s 


d 


X 


c 


esc 


1 


SMC 


<l 


QUL 


a 


QUL 


z 




DATA. 


B 


*32, 


»33. 


*77, 


«65. 


«73, 


»64, 


*78, 


«63. 


SIB, 


»31, 


S09, 


S71. 


»9F, 


$61, 


*9F, 


«7A 


, «30 






h 


7 


y 


u 


h 


J 


n 


m 


QUL 


QUL 


QUL 


sp 


QUL 





SMC 






DATA. 


B 


»36, 


$37, 


*79, 


*75, 


*6e. 


«6A. 


*6E, 


*6D. 


»9F, 


»9F, 


*9F, 


«20, 


»9F. 


*30, 


»9E, 


»2E 


, 440 






8 


9 


i 


o 


k 


1 


, 




EST 


EST 


EST 


EST 


EST 


SMC 


QUL 


QUL 




DATA. 


B 


*38, 


*39- 


»ib9, 


*6F, 


t&B. 


«6C, 


»2C, 


«2E, 


«9D, 


«9D, 


»9D, 


»9D, 


»9D, 


*9E, 


«9F, 


*9F 


, «50 


LSB 







1 


2 


3 


4 


5 


& 


7 


8 


9 


A 


B 


C 


D 


E 


F 





Change the last line to the following: 

8 9 i o k 1 , EST EST EST EST EST SMC SMC QUL 

DATA. B *38, $39. *69, «6F, *6B, *6C, »2C, »2E, «9D, «9D. »9D, «9D, *9D, S9E, *9E, «9F , *50 
LSB 0123 4 56789ABCDEF 



Save, Assemble, Link, and Load as in the previous example. 
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Translation Table Examples 
Escape sharp sec^uences 

This example deals uith the modification of the escape sharp 
sequence table. The translation tables mill nou be modified 
to use the unmarked key as the function key 1. 

A. Create a file with the same entries as the CSK. REV4. TEXT 
file. 

B. Locate the escape sharp sequence table within the file. 
It should be as follouis: 

ESCAPE SHARP (#) SEQUENCE TABLE 

FORMAT : (KEYCODE, FILLER, US/UC, SHIFT, COMMAND, C/S) 

The fill field is added to keep each record on an even byte 
boundary The other fields contain the character sequence to 
follotj the ESCAPE # characters: 



US/UC = when the Shift and Command key are released 
SHIFT = uhen only the Shift key is still being pressed 
COMMAND = uihen only the Command key is still being pressed 
C/S = when the Shift and Command keys are still 
being pressed 

ETABLE (The escape sharp sequence table) 

KEYCODE FILL US/UC SHIFT COMMAND 



DATA 


B 


»20, 


0, 


DATA 


B 


*21, 


0, 


DATA 


B 


»22, 


0, 


DATA 


B 


«23, 


0, 


DATA 


B 


»24, 


0, 


DATA. 


B 


«4A, 


0, 


DATA. 


B 


»58, 


0, 


DATA. 


B 


*59, 


0, 


DATA. 


B 


«5A, 


0, 


DATA. 


B 


*5B, 


0, 


DATA. 


B 


»5C, 


0, 


DATA. 


B 


»CA, 


0, 



00', 


'OA', 


'14' 


01 ', 


'OB', 


'15' 


02', 


'OC, 


'16' 


03', 


'OD', 


'17' 


04', 


'OE', 


'18' 


FF', 


'FF', 


'FF' 


05', 


'OF', 


'19' 


06', 


'10', 


'lA' 


07', 


'11 ', 


'IB' 


08', 


'12', 


'IC 


09'. 


'13', 


'ID' 


FE', 


'FE', 


'FE' 



C/S 






IE' 


FUNCTION KEY 


1 


IF' 


FUNCTION KEY 


2 


20' 


FUNCTION KEY 


3 


21 ' 


FUNCTION KEY 


4 


22' 


FUNCTION KEY 


5 


FF' 


LEFT COMMAND 


(CLOSURE) 


23' 


FUNCTION KEY 


6 


24' 


FUNCTION KEY 


7 


25' 


FUNCTION KEY 


8 


26' 


FUNCTION KEY 


9 


27' 


FUNCTION KEY 


10 


FE' 


LEFT COMMAND 


(RELEASE) 



C. Enter a duplication of the first entry in the table as 
the last entry in the table. Change the keycode from 
*20 to *5E. The unmarked key is noiu defined as function 
key 1. 



ETABLE 

KEYCODE FILL 
DATA. B *20, O, 
DATA. B »21, O, 
DATA. B *22, 0, 



US/UC 


SHIFT 


COMMAND 


C/S 








'00', 


'OA', 


'14', 


'IE' 


i FUNCTION 


KEY 


1 


'01 ', 


'OB', 


'15', 


'IF' 


i FUNCTION 


KEY 


2 


'02', 


'OC, 


'16', 


'20' 


; FUNCTION 


KEY 


3 
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DATA. 


B 


*23. 


0, 


DATA. 


B 


«24, 


0. 


DATA. 


B 


»4A. 


0, 


DATA. 


B 


«58. 


0, 


DATA. 


B 


»59, 


0, 


DATA. 


B 


«5A, 


0, 


DATA. 


B 


»5B, 


0, 


DATA. 


B 


»5C, 


0, 


DATA. 


B 


*5E, 


0, 


DATA. 


B 


«CA, 


0, 



03', 


'OD', 


'17' 


04', 


'OE', 


'18' 


FF', 


'FF', 


'FF' 


05', 


'OF', 


'19' 


06', 


'10', 


'lA' 


07', 


'11 ', 


'IB' 


08', 


'12', 


'IC 


09', 


'13', 


'ID' 


00', 


'OA', 


'14' 


FE', 


'FE', 


'FE' 



'21 ' 
'22' 
'FF' 
'23' 
'24' 
'25' 
'26' 
'27' 
'IE' 
'FE' 



FUNCTION KEY 4 
FUNCTION KEY 5 
LEFT COMMAND 
FUNCTION KEY 
FUNCTION KEY 
FUNCTION KEY 
FUNCTION KEY 
FUNCTION KEY 
FUNCTION KEY 
LEFT COMMAND 



(CLOSURE) 

6 

7 

8 

9 

10 

1 

(RELEASE) 



D. Locate the position 5E in the shift table. Note that 

the current entrg is 9F hex which indicates the key is a 
qualifier. In this example the shift table entry will 
be changed to a »9D hex. Edit the STABLE at postion 5E 
hex to contain the value 9D. 



STABLE 







SMC 


3 


9 


SMC 


6 


, 


- 


cr 


SMC 


1 


7 


SMC 4 


S 


5 


2 


; MSB 


DATA. 


B 


«9E, 


«33, 


$39, 


«9E, 


♦36, 


*2C, 


»2D, 


♦OD 


♦9E, 


♦31, 


♦37, 


♦9E, 


♦34, 


♦ 38 


♦ 35, 


♦32 


i ♦OO 






+ 




■C 


del 


CT 


> 


1 




) 


7 


P 






•M 


" 


QUL 




DATA. 


B 


«2B, 


«oo. 


»7B 


»7F, 


«OD, 


*7D, 


«7C, 


♦OO 


♦29, 


♦3F 


♦ 50, 


♦ 5F, 


♦3A, 


♦ 7E 


♦22, 


♦9F 


, ♦ID 






EST 


EST 


EST 


EST 


EST 








♦ 


7. 


R 


T 


F 


G 


V 


B 




DATA. 


B 


»9D, 


»9D, 


*9D 


»9D, 


*9D 


*00, 


*00, 


♦00 


♦24, 


♦25 


♦ 52, 


♦ 54, 


♦ 46, 


♦ 47 


♦ 56, 


♦ 42 


, ♦SO 






e 


# 


U 


E 


S 


D 


X 


C 


esc 


1 


SMC 


Q 


QUL 


A 


QUL 


Z 




DATA. 


B 


$40, 


*23, 


»57, 


»45, 


«53, 


»44, 


♦ 58, 


♦43 


♦ IB, 


♦21 


♦9E, 


♦ 51, 


♦9F, 


♦ 41 


♦ 9F, 


♦ 5A 


, ^30 






•■■•■ 


& 


Y 


U 


H 


J 


N 


M 


(JUL 


QUL 


(JUL 


sp 


QUL 





SMC 






DATA. 


B 


»5E, 


«26, 


*59, 


»55, 


*48, 


«4A, 


»4E, 


♦4D, 


♦9F, 


♦ 9F, 


♦9F, 


♦20, 


♦9F, 


♦ 30, 


♦9E, 


♦ 2E 


, ^40 






* 


( 


I 





K 


L 


< 


> 


EST 


EST 


EST 


EST 


EST 


SMC 


QUL 


QUL 




DATA. 


B 


*2A, 


«28, 


«49, 


*4F, 


«4B, 


*4C, 


♦3C, 


♦3E, 


♦9D, 


♦9D, 


♦9D, 


♦9D, 


♦9D, 


♦9E 


♦9F, 


♦9F 


i $50 


LSB 







1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 





DATA. B 
LSB 



Change the last line to the follouing: 

* ( I K L < • > EST EST EST EST EST SMC EST QUL 

♦2A, ^28, ^49, ♦4F, ♦4B, ♦4C, ♦SC, ♦SE, ^90, ^90, ^90, ♦9D, ♦90, ♦9E, ^90, ♦9F 

0123456789ABCDEF 



; ♦ 



Locate the position 5E in the regular table. Note that 
the current entry is 9F hex which indicates the key is a 
qualifier. In this example the regular table entry uiill 
be changed to a *9D hex. Edit the RTABLE at position 5E 
hex to contain the value 9D hex. 



RTABLE (The regular table) 
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SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 2; MSB 
DATA. B *7E, »33, *39, *9E, *36, *2C, *2D, «OD. *9E, »31 , »37, »9E, »34, »38, »35, *32 i »00 

=. C bscr] \... / p - ; > ' QUL 
DATA. B »3D, »00. «5B, »08, *0D, »5D, »5C, *00, *30, »2F. »70, #20, *3B, *60, *27, »9F i *10 

EST EST EST EST EST 4 5 r t f g v b 

DATA B *9D, *9D. «9D, »9D, *9D, »00, «00, «O0i »34, *35, »72. ♦74, »66, »67, *76, ♦62 i ^20 

2 3 u) e s d X c esc 1 SMC q QUL a QUL z 

DATA E «32, «33. «77, »i5, »73, »64, ♦78, ^63, ♦IB, ♦31, ^09, ♦71, ♦9F, ♦61, ♦9F, ♦7A i ♦SO 

67yuhjnm QUL QUL QUL sp QUL SMC 
DATA B ^36, ♦S?, ♦79, ♦75. ♦68, ♦6A, ♦6E, ^60, ♦9F, ♦9F, ♦9F, ^20, ♦9F, ♦SO, ♦9E, ♦2E i ^40 

B 9 i o k 1 , EST EST EST EST EST SMC QUL QUL 

DATA B $38, $39, «69, ♦6F, ♦6B, ♦6C, S2C, ♦SE, ♦9D, ♦9D, ^90, ^90, ^90, ♦9E, ♦9F, ♦9F ; ♦SO 
LSB 013 3456789ABCDEF 

Change the last line to the follouiing: 

8 9 1 k 1 , EST EST EST EST EST SMC EST QUL 

DATA B ♦SB, ^39, ^69, ♦6F, ^63, ^60, ♦aC, ♦2E, ^90, ^90, ♦9D, ^90, ^90, ♦9E, ^90, ♦9F /♦SO 
LSE 0123456789ABCDEF 

F Save, Assemble, Link, and Load as in the previous example. 

Making a de-fault keyboard table 

To make a keyboard translation table the system default 
table, merely transfer it to the system volume uith the name 
CSK. DEFAULT 



CCOS Manual p^g^ ^2 



The Display Driver 

The display driver is normally controlled uiith the intrin- 
sic output capabilities of the high level languages in use 
(i.e. WRITE and WRITELN in the case of Pascal). Houever, 
the UNITWRITE and UNITSTATUS functions can also be used. 



Uindous 



The display driver's output is aluays to the current uindou. 
CCOS supports up to 10 uindouis on the screen at any one 
time. Normally; three tuindoujs are in use: the large system 
yindouii the tuo-line command ujindou immediately belou it. 
and the function key yindou containing the function key 
labels. 

Mindouis can be created ujith the uiindou manager or through a 
user program. Each uiindoui has a variety of attributes that 
are described in its inindoii) record. The SYSCOM field Cur- 
rent Windou Record Pointer aluiays points to the address of 
the record of the u/indouj currently in use. 

The format of a mindou record is as follouis: 





WndR 


cd 


= 


record 




<1 


ength o 


ffse 


b> 






■c 


4 







charpt 


pCharSet 


■c 


4 


4 




homep t 


pBytes; 


< 


4 


e 




curadr 


pBy tesi 


< 


2 


12 




homeof 


integer; 


i 


2 


14 




basex: 


integer; 


< 


2 


16 




b a s e y . 


integer; 


< 


2 


IS 




Ingthx 


integer; 


< 


2 


20 




Ingthy 


integer; 


< 


2 


22 




curs x: 


integer; 


i 


2 


24 




cursy : 


integer; 


< 


2 


26 




bitofs 


integer; 


{ 


2 


28 




gror g x 


integer; 


■c 


2 


30 




grorgy 


integer; 


< 




32 




attrl: 


byte; 


< 




33 




attr2: 


byte; 


■c 




34 




state: 


byte; 


{ 




35 




rcdlen 


byte; 


< 




36 




attr3 




byte; 


< 




37 




fill! 




byte; 


{ 




38 




f ill2 




byte; 


{ 




39 




f ill3 




byte; 


•c 


4 


40 




f ill4 




longint; 


{ 


4 


44 




uusp ti 


r 


pBy tes; 



; {character 
{home (uppe 
{current lo 
{bit offset 
{home X val 
{home y val 
{maximum x 
{maximum g 
{current x 
{current y 
{bit offset 
{graph ics - 
{graphics - 
{inverse- u 
{v/h. graph 
cursor inv 
{used for d 
{uindoui des 
{enhanced c 
{currently 
{currently 
{currently 
{currently 
{uindoui uor 



set 
r le 
cat i 

of 
ue. 
uei 
valu 
valu 
valu 
val u 

of 

or i 

or i 
nder 
ics/ 
/und 
ecod 
crip 
hara 
unus 
unus 
unus 
unus 
king 



record 
ft) poi 
on poin 
home lo 
rel to 
re 1 to 
e> bits 
Bi bits 
e, b its 
bits 
current 
gin X, 
gin y, 
score> 
chari c 
er 1 ine> 
ing esc 
tion re 
cter se 
ed> 
ed> 
ed> 
ed> 
s torag 



pointer} 

nter } 

ter> 

cat ion> 

root uindouj> 

root uindoiii> 
rel to ujindou)} 
rel to uiimdauf} 
rel to uiindouj} 
rel to uiindoui> 
address} 

bits rel to home> 

bits rel to home> 

insert} 

ursor on/off/ 

ape seq.uences} 
cord length} 
t attributes} 



e pointer} 
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< total 



48 > 



■nd> 



Character sets 

Each display uindow has an associated character set record 
that describes the size of the font in usei as well as the 
dot patterns of the individual characters. The format of 
the character set record is: 



CharSet = 


Record 






< Length 


Offse 


t> 






•C 4 





> 


TblLoc 


PBytesj 


■C 2 


4 


> 


Lpch 


Integer; 


< 2 


6 


> 


Bpch 


Integer; 


< 2 


8 


> 


FrstCh 


Integer; 


< 2 


10 


> 


LastCh 


Integer; 


< 4 


12 


> 


Mask 


Longint; 


< 1 


16 


> 


Attrl 


Byte ; 


< 1 


17 


> 


Filll 


Byte ; 


■C total ~ 


18 


> 







<Char set data pointer > 

■CScan lines per char. > 

■CBits per character > 

<ASCII of 1st char. > 

<ASCII of last char. > 
{Mask used in cell pos. > 

{Attributes. . . not used > 

■CNot used > 



The Lpch and Bpch fields describe the height and width of 
the character cell in pixels. If the screen is vertical/ 
Lpch describes the width of the character/ and Bpch 
describes the height. If the screen is horizontal/ the 
fields' meanings are reversed. 

A character set file consists of four integers giving the 
cell width/ cell height/ 1st character ASCII code/ and last 
character ASCII code/ followed by an arrayCfirst. . last!] of 
CharOata. Each element of CharData is an array CI. . height] 
of Byte if the character width is less than or eq.ual to 8/ 
or arrayCl. . height] of Integer if the character width is 
more than 8. Scanline data is left-justified within the 
data type. 



Controlling the display 

UNITWRITE can be used to send bytes to the display. How- 
ever/ the display driver uses many control and escape codes 
to activate its various features. A list of these codes 
f ol lows: 
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Command Setiuence 


Hex Codes 


Ctl-G 




07 


Ctl-H 




oa 


Ctl-I 




09 


Ctl-J 




OA 


Ctl-K 




OB 


Ctl-L 




OC 


Ctl-M 




OD 


ESC = 


col row 


IBi 30i coll row 


ESC A 




IB, 41 


ESC B 




IB, 42 


ESC C 




IB, 43 


ESC D 




IB, 44 


ESC E 




IB, 45 


ESC G 





IB, 47, 30 


ESC G 


4 


IB, 47, 34 


ESC G 


8 


IB, 47,38 


ESC G 


■c 


IB, 47, 3C 


ESC H 




IB, 48 


ESC J 




IB, 49 


ESC K 




IB, 4B 


ESC 


cl c2 


IB, 4F, cl, c2 


ESC Q 




IB, 51 


ESC R 




IB, 52 


ESC W 




IB, 57 


ESC Y 




IB, 59 


ESC Z 




IB, 60, N 


ESC a 




IB, 61 


ESC b 




IB, 62 


ESC c 




IB, 63 


ESC d 




IB, 64 


ESC e 




IB, 65 


ESC f 




IB, 66 


ESC g 




IB, 67 


ESC i 




IB, 69 


ESC 1 




1B,6C 


ESC n 




IB, 6D 


ESC n 




IB, 6E 


ESC 




1B,6F 


ESC p 




IB, 70 


ESC q. 




IB, 71 


ESC r 




IB, 72 


ESC s 




IB, 73 


ESC t 




IB, 74 


ESC u 




IB, 75 


ESC V 




IB, 76 


ESC ti) 




IB, 77 



Description 

bell 

cursor left (backspace) 

tab (8 spaces) 

cursor douin (line-feed) 

cursor up 

cursor right 

carriage return 

gotoxg 

cursor up 

cursor down (linefeed) 

cursor right 

cursor left (backspace) 

insert line 

set video to normal 

set video to inverse 

set video to underline 

set video to inverse+un- 
der 1 ine 

cursor home 

clear window, home cursor 

clear to end of line 

overstrike cl, c2 

insert character 

delete line 

delete character 

clear to end of window 

invert N characters 

page mode on 

turn off cursor 

turn on cursor 

enter key: carriage 
return 

character enhancements 
*fill block 

graphics mode 

back tab (8 spaces) 
-H-draw line 
-M-copi) block 

turn off scrolling 
*set graphics origin 
-fl-plot point 

insert mode 

insert mode off 

turn on scrolling 

text mode 

underscore cursor 

inverse cursor 

wrap at end & beginning 
of line 
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ESC X IBi 78 no urap at end & beg. 

of line 
ESC y IBi 79 page mode off 

ESC I IBi 7A invert screen 



* Graphics functions: 

Function Parameters Byte count 

Set origin x> y , dual if ier 7 (11221) 

Plot point x.y.mode 7 (11221) 

Draw line xl. y 1, x2. y2. mode 11 (1122221) 

Fill block x. y, height/ widthi density 11 (1122221) 

Copy block xl, yl, height. width. x2. y2 14 (11222222) 

WrlteBytes (see UnitStatus) 

ReadBytes (see UnitStatus) 

mode: <I0 invert. =0 clear. >0 set 

density: 1 dense. 2 less dense, etc. 

qualifier: 1 rel to graphics origin 

2 abs graphics origin 

3 rel to cursor position 

4 abs text origin 

These driver capabilities can easily be used directly from 
a program. For example, a Pascal program could invert the 
current window (the ESC-z sequence) with; 

WRITE(Chr(27), 'z ')i 

Note: Control of most of the display driver's special capa- 
bilities is provided in the CCcrtIO unit in CCLIB. 

The display driver also supports various character enhance- 
ments: overstriking, underline, double underline, super- 
scripting, subscripting, strike out. and bold face. 

The overstrike enhancement is specified as follows: 

ESC <charl> <char2> 

<Charl> and <:char2> are OR'ed together at the cursor posi- 
tion. Hr a character is not in the character set, a blank is 
substituted. Only two characters may be overstruck at one 
cursor position. 

The other character enhancements aTe specified: 
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ESC e <byt8> 

<Byte> is a bit pattern of 7 flags, where 1 means the fea- 
ture is on/ O - off. 



xlxxxxxx 



bit flag 

bold 

1 strike out 

2 inverse 

3 underline 

4 superscript 

5 subscript 

6 (altiiags on) 

7 double underline 

The inverse and underline attributes are also implemented 
in the ESC-0 sequence. They are included for compatibility 
with earlier versions of the display driver. 

Two pairs of enhancements are mutually exclusive: 

1. superscript and subscript. 

2. underline and double underline. 

If both flags of a pair are set< the flag with the lower bit 
number takes precedence. The order of checking flags and 
applying enhancements to the character is as follows: 

1) super/subscript 

2) bold 

3) strikeout 

4) double/underline 

5) inverse 

The algorithms used for displaying the enhancements are as 
f ol lows: 

BOLD - character is OR'ed over itself one dot 

position to the right in the character 
cell. 

SUPERSCRIPT - character is shifted up two dots and 

the top three rows of the character 
cell are DRed together to make room for 
the superscripted character. 

SUBSCRIPT - character is shifted down two dots and 

the bottom three rows of the character 
cell are ORed together to make room for 
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th« subsripted charactsr. 

UNDERLINE - the bottom rou of the character cell is 

filled uith dots. 

DOUBLE UNDERLINE - the bottom two rows of the character 

cell STB filled with dots. 

STRIKEOUT - the fifth row of the character cell 

(first row is row one) is filled with 
dots. 

The character set enhancements will not work in any cell 
smaller than 7 by 11 dots. The CCOS default character set is 
6 by 10. If use of the enhancements is plannedi setting up a 
STARTUP. TEXT file to automatically load a larger character 
set is recommended. 



Special display driver control 

Some driver functions are not accessible by using the high 
level language I/O or the UNITWRITE function. These other 
functions are accessed by using the UNITSTATUS call. The 
format of the call is: 

UnitStatus(DisplayUnitNo. Buffer. Func )i 

where Disp layUnitNo and Func are integers and Buffer is a 
parameter block containing the parameters in the order 
shown. For CCOS version 1. 1, the display unit number is 36. 

Function Code Parameters 

Read cursor position xpositioni yposition: integer; 

Create window l NewWindowRec: WndRcd; 

Delete window 2 WindowRec: WndRcd 

Select window 3 WindowRec: WndRcd 

Clear window 4 WindowRec: WndRcdi 

Get window status 5 homex, homey . width. height: 

integer; 
WriteBytes 6 bytecount: integer; pBuff: 

pBy tes; 
ReadBytes 7 bytecount: integer; pBuff: 

pBy tes; 
Load CRT Table 8 see below 



For example, to retrieve the current X and Y position 
(relative to the current window, of course) of the cursor: 
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Const 

DispUnit * 36; 

Var 

CPos : Record 

XCo : Integeri 
YCo : Integer 
End; 

Begin 

UnitStatus(DispUnit,CPos, 0); 

WriteLn< 'Current cusor X was: ', CPos. XCo); 

WriteLn(' Y uas: ', CPos. YCo) 



Note: When declaring records for UnitStatus callsi each 
field MUST have its type declared seperately. If the 
variable CPos had been declared as: 

Var 

CPos : Record 
XCo. 

YCo : Integer 
End; 

the fields XCO and YCo would have been allocated in memory 
in reverse order* and the cursor co-ordinates would have 
been returned in the wrong order. 



LOADABLE CRT TABLES 

The display driver provides user-loadable translation ta- 
bles. This means that the CRT function control codes can be 
changed to emulate other terminals at the driver level. The 
driver contains a default translation table which is in 
effect when the system is booted. You can switch to a 
different table by loading the new table into memory and 
passing its address to the CRT driver to make it the current 
table: 

UnitStatus(CRTunitnumber. Table. 8); 

where Table is the new translation table. Since the second 
parameter in the UnitStatus procedure is a VAR parameter, 
the CRT driver receives the address of the new table. If 
this address is nil (O) the default table becomes current. 
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The BLDCRT utility program can be used to build new CRT 
function tables. The BLDCRT utility is described in chapter 
6. 

The ASCII value of the control character is used as an index 
into the table. Non-negative bytes in the CRT table corre- 
spond to entries in the jump table of the CRT driver. Table 
indices from O. . *1F (first 2 rows) refer to control charact- 
ers; table indices from S20. . *7F refer to the character 
after an ESC. A byte value of tFF means the code is invalid 
or not implemented. This is the default table contained in 
the CRT driver: 

I 0123456789ABCDEF 

001 FF FF FF FF FF FF FF 08 03 06 01 00 02 05 FF FF 

101 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 

201 FF FF FF 26 FF FF FF FF FF FF FF FF FF FF FF FF 

30! FF FF FF FF FF FF FF FF FF FF FF FF FF 24 FF FF 

40! FF 00 01 02 03 OE FF 11 04 FF 09 OA 14 15 FF 2C 

501 26 OC OF FF FF FF FF OD FF OB 2E FF FF FF FF FF 

601 FF 16 19 18 05 2D 29 lA FF 07 FF FF 28 2A ID 3B 

701 27 IE IF IC IB 20 21 22 23 17 10 FF FF FF FF FF 



Each byte in the CRT table refers to a driver function Here 
is the list of available functions ^codes are? in hex) The 
default sequence follows. 
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Hex Function description 



Default seci.uence(s) 



and home cursor 
of line 
of screen 



00 cursor up 

01 cursor doiijn (linefeed) 

02 cursor right 

03 cursor left (backspace) 

04 cursor home 

05 carriage return 

06 tab 

07 back tab 

08 sound bell 

09 c lear screen 
OA c 1 ear to end 
OB clear to end 
OC insert character 
OD delete character 
OE insert line 

OF delete line 

10 invert screen 

11 video c ommand 

12 inverse video 

13 normal video 

14 set auto I..F on CR 

15 suppress auto LF 

16 page mode on 

17 page mode off 

18 cursor on 

19 cursor off 

lA grap h ic Cr mode 

IB text mode 

IC scrolling on 

ID scrolling off 

IE insert mode tin 

IF insert mode off 

20 underscore cursor 

21 inverse cursor 

22 lurap at eoln 

23 no ujT-ap at eoln 

24 CCOS type gotoxy 

25 CP/M type gotoxy 

26 skip two characters 

27 plot point 

28 draw line 

29 fill block 
2A copy b 1 o c I. 
2B set origin 

2C over strike 2 chars 

2D character set enhancements 

2E invert characters at cursor 



ESC 


A 


or CTL-K 


ESC 


B 




ESC 


C 


or CTL-L 


ESC 


D 


or CTl-H 


ESC 


H 




CTL- 


-M 




CTL- 


-I 




ESC 


i 




CTL- 


-G 




ESC 


J 




ESC 


K 




ESC 


Y 




ESC 


Q 




ESC 


UJ 




ESC 


E 




ESC 


R 




ESC 


z 




ESC 


G 


mod e 


ESC 


L 




EBC 


M 




ESC 


a 




EBC 


y 




ESC 


c 




ESC 


b 




ESC 


g 




ESC 


t 




ESC 


s 




ESC 


n 




ESC 


q. 




ESC 


r 




ESC 


u 




ESC 


V 




ESC 


Ul 




EBC 


X 




ESC 


TZ 


col rouj 


ESC 


# 


cl c2 h. 


ESC 


P 


<parms> 


ESC 


1 


<;parms> 


ESC 


f 


;:parms> 


ESC 


m 


<parms:: 


ESC 





<: p a r m s > 



ESC F cl c2 



ESC a chl ch2 
ESC e flags 
ESC Z count 
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Tht DataComm Driver 

The datacomm driver controls I/O at the tiuo RS-232 ports on 
the Concept. The driver is interrupt-dr iven and will send 
and receive characters without explicit program control. 
Input is always accepted (until the input buffer is filled)> 
and the contents of the output buffer are automatically 
sent. Once the data has been put in the bufferi the program 
need no longer be concerned with it. 

This can lead to problems in some cases. Since the driver 
will always accept incoming characters (unless the interrupt 
mask is set to disable the interrupt), applications that 
receive data from the RS-232 ports may get a burst of gar- 
bage when first executed. Clearing the buffer with the 
UnitClear procedure avoids this» but since this also resets 
all the datacomm parameters (baudi parity, etc. ) to their 
defaults, the settings should be read, saved, and restored 
after this operation. 

Both input and output buffers are 256 bytes initially, but 
may be set as large as 32K bytes of necessary. In addition, 
alternate buffers of up to 32K may be set up for both input 
and output. 



UnitRead 

UnitRead reads data from the input buffer. If no data is 
present, the call will "hang" and wait for data to be re- 
ceived. To avoid this, use the UnitBusy function to check 
for the presence characters in the input buffer prior to 
issuing the UnitRead. 



UnitMrite 

UnitMrite write data to the output buffer. Note that the 
data will not necessarily be transmitted at the time it's 
written, since in most cases UnitMrite can fill the buffer 
much faster than the data can be transmitted. 



UnitBusy 



The UnitBusy function returns TRUE if there are characters 
in the input buffer. 



UnitClear 
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Clsars both ths input and output buffersi as well as 
rsetting the datacoflim parameters to the defaults. The 
default settings are: 

Port 1: 1200 baudi space parity/ 7 bits. XOn/XOff 
Port 2: 9600 baudi no parity. 8 bits. XOn/XOff 



Unitlnstall. UnitMount. UnitUnmount 

These unit procedure have no function in the datacomm dri- 
ver. No errors will result from their use. but no action 
will occur. 

In additional to the normal UNIT commands, the datacomm 
driver supports a number of special UnitStatus calls. These 
calls are described below. The datacomm driver supports 
three units: O for the printer (assumed to be connected to 
RS-232 port 2), 1 for dtacoml. and 2 for dtacom2. 

Several of the datacomm parameters, such as baud rate and 
character size, are represented by single digit codes. 
These codes are used to refer to the specific settings and 
must be used in the following UnitStatus calls. 

Baud rate codes 

Baud300 = O 

Baud600 = 1 

Baud 1200 = 2 

Baud2400 = 3 

Baud4800 = 4 

Baud9600 = 5 

Baud 19200= 6 



Parity Codes 



Port Codes 



Parity disabled = O 

Parity odd = 1 

Parity even = 2 

Parity mark = 3 

Parity space = 4 



Port 1 =0 
Port 2=1 
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Character Size Codes 

8 bits = 
7 bits - 1 



Handshake Codes 



CTS line inverted 

CTS line normal 

DSR line inverted 

DSR line normal 

DCO line inverted 

DCO line normal 

XOn/XOff 

Enq/Ack 

Etx/Ack 

No protocol 



= O 

=» 1 

= 2 

= 3 

= 4 

= 5 

= 6 

= 7 

= 8 

= 9 



UnitStatus codes 

Following are the special UnitStatus codes, their functions, 
and the required parameters. 



Function code 

Name 

Param 



Return write buffer free space 
Integer 



Returns the number of byte available in the output (write) 
buffer. This call can be used to make sure that an 
application does not overflow the output buffer by writing 
data faster than it can be sent. 



Function code 

Name 

Param 



Return baud rate setting for unit 
Integer 



Returns the baud rate code corresponding to the baud rate 
set for the device. 



Function code 

Name 

Param 



Return parity setting for unit 
Integer 



Returns parity code corresponding to the parity setting for 
the unit. 
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Function code: 3 

Name : Set print unit / Return free space in input 

buffer 
Param Integer 

For unit (the printer): Associates the /printer device 
with either RS-232 port 1 or 2. 

For units 1 and 2 (the dtacoms): Returns the number of free 
bytes in the read (input) buffer. 



Function code 

Name 

Param 



Return char size setting 
Integer 



Returns a 1 (7 bits) or (8 bits) depending upon the 
character size setting for the specified unit. 



Function cod* 

Name 

Param 



Return handshake type 
Integer 



Returns the handshake code for the setting used by the 
specified unit. 



Function code 

Name 

Param 



Return datacomm unit settings 
Record 

BaudRate> 

Parity. 

Port. 

CharSize. 

Handshake : Integer 
End; 



This call returns the parameters for the printer, dtacoml. 
or dtacom2. For example: 

Var 

Status : Record 
Bd. 
Prty, 
Prt. 
ChSz, 

HndSk : Integer 
End; 
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Begin 

UnitStatusd, Status, 7); 



Function code: 7 

Name ; Return write buffer status 

Param : Record 

BufferSize : Integer; 

FreeSpace Integer; 

HiWater : Integer; 

LoWater Integer; 

InputDsAbld: Boolean; 

OutptDsAbld: Boolean; 

AutoLinFeed: Boolean; 

AltBufAvail: Boolean; 

AltBufAddr : pByte; 

AltBufSize : Integer 
End; 

Returns the write buffer status for the desired unit. The 
individual fields in the parameter block are: 



Buf f erSize- 

FreeSpace- 

HiWater- 
LoWater- 
InputDsAbld- 

OutptDsAbld- 

AutoLinFeed- 

AltBufAvail- 

AltBufAddr- 
AltBufSize- 



The size of the current buffer, ir 
bytes. 

The number of unused bytes in the 
buffer. 



If TRUE, characters written to the 
unit will be ignored. 

If TRUE, characters in the write 
buffer will not be transmitted. 

If TRUE, a line feed will be sent 
after every carriage return. 

TRUE if an alternate buffer is avail- 
ab le. 

The address of the alternate buffer. 

The size in bytes of the alternate 
buffer. 



Function code: 8 
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Nam« 
Param 



Return read buf 

Record 

Buf f erSize 

FreeSpace 

HiMater 

LoMater 

InputDsAbld 

OutptDsAbld 

LostData 

AltBufAvall 

AltBufAddr 

AltBufSize 

End; 



fer status 



Inte 
Inte 
Inte 
Inte 
Bool 
Bool 
Bool 
Bool 
pBift 
Inte 



ger; 

ger; 

geri 

ger; 

ean; 

eani 

eani 

eani 

ei 

ger 



All parameters have the same meaning as the equivalent uiritt 
buffer status parameters except: 



LostData- 



HiWater- 



LoUater- 

InputDsAbld- 
OutptDsAbld- 



If TRUEi parity, framing/ or overrun 
errorsi or buffer overflow/ has re- 
sulted in the loss of some input 
data. 

The "high water mark." When this many 
characters are in the buffen the 
driver will tell the host to stop 
sending characters using the assigned 
protocol. This prevents buffer over- 
flow. 

The "low water mark. " When the level 
of characters in the buffer has drop- 
ped to this point, the driver tells 
the host to resume transmission. 

If TRUE/ characters received by the 
unit will be ignored. 

If TRUE, characters in the write 
buffer cannot be read by the user. 



Function code 

Name 

Param 



Set high water mark for read buffer 
Integer 



Sets the number of input characters for the high water mark. 
If the buffer fills to this point/ the driver will force the 
host to cease transmission using the appropriate protocol. 
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Function code 

Name 

Param 



10 

Set low water mark for read buffer 

Integer 



If reception of new data has been suspended by the driver 
due to a "high water" condition occuringi when the number 
of characters in the buffer drops to this level, the driver 
will allow the host to resume transmission. 



Function code 

Name 

Param 



11 

Toggle read buffer output disable 

Nil 



If disabled, the user will be unable to get characters from 
the buffer. The current status of this toggle can be 
obtained with UnitStatus call 7. 



Function code 

Name 

Param 



12 

Toggle read buffer input disable 

Nil 



If disabled, characters coming into the port will be 
dropped, and not put into the buffer. 



Function code 

Name 

Param 



13 

Toggle write buffer output disable 

Nil 



If disabled, characters in the output buffer will not be 
sent. The status of this flag can be checked with UnitStatus 
code 8. 



Function code 

Name 

Param 



14 

Toggle write buffer input disable 

Nil 



If disabled, characters written to the device will be thrown 
away and not transmitted. 



Function code 

Name 

Param 



15 

Return number of characters in input buffer 

Integer 



Returns the number of characters available in the input 
buffer. Useful in situations where no handshaking protocol 
can be used as it allows the application program to manage 
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the buffer. 



Function code 

Name 

Param 



16 

Return number of characters in output buffer 

Integer 



Returns number of characters in the output buffer 



Function code 

Name 

Param 



17 

Toggle auto linefeed 

Nil 



Toggles the status of the auto linefeed flag. If set, line 
feeds (ASCII »0A characters) will be automatically sent 
after each carriage return (ASCII *0C ) The status of this 
flag can be checked ujith UnitStatus code 8. 



Function code 

Name 

Param 



18 

Set # of chars betuieen Enq or Etx 

Integer 



Only valid tuhen the appropriate protocol is used. Sets # of 
characters that must be received after an Enq or Etx before 
Ac k is sent. 



Function code: 19 

Name Set alternate read buffer 

Params Longint/ integer 

The parameter to this call takes the form of a record: 

Record 

NewBuf: Longlnti 
Size Integer 
End; 

NeuBuf contains the address of the alternate buffer, while 
Size contains its size in bytes. The maximum size is 
32,767 bytes. After executing this function, all subse- 
quent incoming data will be deposited in the alternate 
buffer. Calling this function with NewBuf set to will 
cause the datacomm driver to reset to the primary input 
buffer. 



Function code: 
Name 



20 

Set alternate write buffer 
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Params 



Longint. integer 



The parameters and actions o-P this function are the same as 
those for function code 19. except that the buffer affected 
is the urite buffer. 



Function code 

Name 

Param 



21 

Clear read 

Nil 



buffer 



Clears the read (input) buffer. If UnitBusy was true prior 
to the execution of this function, it uill be false after 
execution. Attaches input to alternate read buffer if one 
has been established. 



CCOS Manual 



Page 110 



The Timer Driver 

The CCOS timer driver performs three functions: 

1. A table of user timer service routines is main- 
tained and the various routines are serviced 
(if necessary) at each 50 millisecond timer 
interrupt. 

2. VIA timer number 2 is used to produce the various 
bell sounds through the Concept speaker. 

3. It maintains the real-time clock. 

User service routines 

Users can set up small service routines that the timer 
driver uill automatically call (approximately) every SO ms. 
This is NOT a precise time> and applications requiring a 
different or more precise interval must set up and monitor 
VIA timer #2. Timer #1 is for the exclusive use of the 
timer driver. 

The UNITSTATUS procedure for the timer driver performs four 
functions related to the creation and maintenance of a 
table of user routines. These functions STe: 

UnitStatus function code Function 

1 Create a table entry 

2 Delete a table entry 

3 Enable a table entry 

4 Disable a table entry 

All the actions tuill place error condition codes within the 
lORESULT field in SYSCOM. Only t*K0 error conditions are 
defined. They are a) table full and b) no such entry (or 
invalid table entry ID). 

Function 1: Create a User Table Entry 

This function takes as input the address of the user rou- 
tine, the number of 50ms timeouts before service (range of 1 
to 65.535). and a word of flags. It returns the table entry 
ID (word) of the entry made. 

Only two bits are currently used in the flags word. Bit 
one is the continuous/one shot flag. When it is clear, the 
table entry is used (every COUNT timeouts) until is is 

CCOS Manual Page 111 



removed by the Delete call. When it is sett the associated 
routine is deleted after the first time it is called. 

Bit 2/ uhen set. serves as a "skip first call" flag. This 
flag causes the timer driver to ignore the FIRST call to be 
made to the corresponding user routine. All subsequent 
call are performed. The need for this flag arises due to 
the fact that the Create operation is performed asynchro- 
nously to the interrupts generated by the driveri uihich 
implies that the first call to the user routine uill be 
made before the specified number of 50ms timeouts. This 
flag is set uihen a desired MINIMUM time is necessary before 
a user routine is called. 



Bit # 



7 

X 



a 

X 



Skip 1st Call bit 

Continuous/one shot bit 
"X" = Not used 



5 

X 



4 

X 



3 

X 



2 
1 





X 



Below is a Pascal program fragment that creates a timer 
parameter block: 



CONST 



OneShot 


= 2i 


SkipFxrst 


= 4; 


Timer 


= 34; 


Create 


= li 


TYPE 




TimerRec : 




record 




UserServiceRtn 


Count 




Flags 




TablelD 




end; 




Var 




TimerDemo : TimerRec; 



< UnitStatus function code > 



pointer; <Input parameter} 

integer; -Clnput parameter} 

integer; <Input parameter} 

integer -COutput parameter} 



Beg in 

With TimerDemo Do Begin 

UserServiceRtn := Pointer <a<<some user stuff>)); 
Count : = 10; -C Every SOOmsi more or less } 
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Flags : = 0; 

TablelD : == O; -C Set by UnitStatus > 
Endi 
UnitStatus (Timeri TimerDemoi Create) i -C Create entry > 



Function 2: Delete a user table entry 

The delete table entry procedure takes the table entry ID 
(word) for the entry desired and deletes that entry from 
the table. This table entry ID is the same value returned 
by the Create function. The Delete procedure has 1 input 
parameter and no (zero) output parameters, for a total of 2 
bytes. 



UnitStatus (Timer. TablelD. 2); 

In this example. TablelD is an integer containing the ID of 
the user routine (returned by Create) to delete. 



Function 3: Disable user routine 

The disable procedure allows the user to prevent the Timer 
interrupt routine from calling the user's timer service 
routine without deleting the user's table entry. The proce- 
dure has one input parameter, the table entry ID of the 
entry to disable. It has no output parameters. The total 
number of bytes for this procedure's parameter block is 2. 

Example: 

UnitStatus (Timer, Tab lelD. 3>i 



Function 4: Enable user routine 

The Enable procedure allows the user to restart a table 
entry. It clears the Disable condition and resets the down 
counter to its starting condition. It can be used for 
either starting up a Disabled table entry or restarting a 
running entry before it causes a call to the service 
routine. This procedure has only 1 parameter, the table 
entry ID, for a total of 2 bytes. 

Example: 

UnitStatus(Timer, TablelD, 4); 
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Notes on user routines 

User timer service routines are called during the interrupt 
processing. They should take a minimal amount of timei 500 
microseconds is the recommended maximum. Therefore, don't 
use them for doing any significant processing. They would 
be best used for setting flags informing the program that a 
timeout event has occurred. 

The table operations are not indivisible. Thereforei a user 
timer service routine may be called uhile the user is making 
a delete or disable call. Conseq.uently i any operation done 
by the user service routine must be easily reversable after 
the table operation call. This only reinforces the need for 
keeping the user service routines simple with few destruc- 
tive operations. 

All user timer service routines must return to the Timer 

driver interrupt routine via the RTS instruction. Also* no 

argument passing is available to the the user's timer 
service routine. 

For Pascal programs which must incorporate user timer inter- 
rupt service routine there are a few restrictions. Obvious- 
ly, the routines must be coded in machine language and 
linked as externals to the pascal program. Only procedures 
can be used, since the user routines cannot return results. 
The procedure must be global. The procedure must return to 
the Timer driver and cannot use Global GOTO's. When the 
table entry is created, the routine that calls the timer 
driver create function must be a resident part of the pro- 
gram which contains the user's service routine procedure. 



The Bell servic e 

The timer driver's Bell service is also activated by a 
UNITSTATUS call. The code is 0, and the parameter passed is 
the Bell parameter block. The declaration for the Bell 
parameter block is: 



Type 






BellParm: 


Record 






Freq 


Integer 




Ptrn 


Byte; 




Filr 


Byte; 




Drtn 


Integer 




End; 





The first field is the freq^uency of the tone to be produced. 
The second field contains a pattern of Is and Os whichj 
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describe the way in which the speaker will be toggled; it 
can be used to produce interesting variations in the note 
produced. The Filr ^ield is ignored, and is included as a 
filler to align the next parameter on a bgte boundary. The 
last field is the duration of the tone producedi in terms of 
50ms timeouts. 



Real time clock service 

The third service, the time and date clock, is accessed via 
the Unitread and Unitwrite driver interfaces. The clock 
interfaces require a Clock Parameter Block. This is a fixed 
length, fixed format interface. Unlike other drivers, the 
timer driver cannot do reads and writes of variable length 
data strings. The Clock Parameter Block is one field longer 
for the Unitwrite procedure then for the Unitread procedure. 
The following is a Pascal fragment which describes the Clock 
Parameter Block. 



type 

clockPB 



record 

Day of Meek 

Month 

Day 

Hour 

Mins 

Sees 

Tenths 



Integer; 
Integer; 
Integer; 
Integer. 
Integer; 
Integer; 
Integer; 
case INTEGER of 

; ( -CUrite only> LeapYear 
end ■Cvariant> 
end; -{record} 



■CI. 


. 7> 


<1. 


. 12> 


{1. 


. 31> 


{0. 


. 23> 


<0. 


. 59> 


<0. 


. 59> 


■CO. 


. 9> 



0. . 3); 



Though each field is a sub range of the integer type and 
could fit in less space then a word, each field MUST be a 
word long. Therefore, declare each field as an integer, but 
restrict your useage to the valid range. The real parameter 
block is 8 bytes long. 

The driver does validate the range in case of a user error. 
Unfortunately, the Day parameter is not completely verified. 
If the month specified is February (Month := 2). but the Day 
is 30. the driver does not report an error. 

Except for the fields DayofWeek. Tenths, and LeapYear the 
field meanings are self-explanatory. DayofMeek specifies 
which day it is. such as Monday. Tuesday, etc. The value 1 
specifies Sunday while 7 specifies Saturday. The field 
Tenths is tenths of a second. Finally, the clock has no 
register set for years. However, to keep the correct date 
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after a gear change the clock tracks if this year is a leap 
gear. The LeapYear field specifies the number of years 
AFTER the last leap year. Thereforei if this year is leap 
year then the field should be assigned to O (zero). Conse- 
(^uently, if last year uas leap year then the field should be 
assigned to 1 (one), and so forth. The LeapYear field is 
only used when setting the clock (Unituir ite ) . It is not 
returned when reading the clock (Unitread). 

To set the clock, first fill in all the fields in the clock 
parameter Block, including the LeapYear field. Next, call 
the timer driver Unitwrite to set the clock. 

Unitu(rite( TimerDr iverNumber, Wr iteParmBloc k> 8); 

The driver will set the lORESULT variable if the parameter 
block is in error. 

To read the clock just call the timer driver Unitread with 
the Clock Parameter Block. 

Unitread( TimerDr iverNumber , ReadParmBloc k> 8); 



Uni tinstal 1 



The Timer driver unitinstall procedure sets-up the VIA, 
initializes the timer table to no entries value, starts the 
50 ms. interrupt driven interval timer (VIA timer #1), and 
initializes the clock chip. Clock initialization makes sure 
the clock is running, the chip is not in test mode, and the 
interrupt capabilities of the chip are reset. The chip can 
interrupt, however, it is not connected to the system inter- 
rupt system and it's interrupt is ignored. The interrupt is 
cleared and reset so it does not effect the running of the 
clock 



Unitunmount 



The Timer driver unitunmount procedure turns off the VIA 
timer interrupt for Timer #2. It also installs in the timer 
interrupt vector a pointer to a ReTurn from Exception (RTE) 
instruction to insure system integrity in case of a spur- 
rious level 5 interrupt. 
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The Disk Drivers 

There are three basic types of disks that the Concept can 
use: 



1. A hard disk; 

2. An 8 inch floppy disk; 

3. An Apple floppy disk. 

With the exception of the Apple floppy disk driver, which 
is read-only, all of these drivers are functionally identi- 
cal. A program need not be concerned whether the disk on 
unit 12 is a hard disk or a floppy- the UNIT I/O procedures 
all operate in the same fashion. 

The two possible differences in the various type of disks 
are differences in capacities and UNITSTATUS calls. 

The disk system is not interrupt driven, so the UNITCLEAR 
and UNITBUSY procedures have no function. UNITREAD and 
UNITWRITE may be used to directly read and write blocks 
from the disks. 

The Revision B Floppy Disk Driver 

8 inch floppy formats 

The driver can handle most variations of the standard single 
and double density formats. The standard single density 
format is the IBM 3740 format. The standard double density 
format is the "System 34" format. For single density it can 
use 128. 256 or S12 byte sectors and any number of sectors 
per track, the standard is 26 128 byte sectors per track. 
For double density it can use 256 or 512 byte sectors and 
any number of sectors per track, the standard is 26 256 byte 
sectors per track. It can use any number less than 128 as 
the number of tracks per side. The standard is 77 for both 
density. It also can use single and double sided diskettes 
in either format. 

A double sided diskette can be distinguished from a single 
sided diskette by the location of the index on the diskette 
Single sided diskettes have index holes in the center of the 
diskette, while double sided diskette have the index hole 
off-center. 

When the driver finds that a new diskette has been placed in 
the drive it will determine the density, number of sides 
used and the sector size any action from the user. The 
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Single ! 


128 


Single ! 


256 


Single 1 


513 


Double ! 


256 


Double ! 


512 



driver can also determine the number sectors per track base 
on the sector size if the user is using standard diskettes. 

The standard sectors per track arc : 

Density I Bi^tes per sector I sectors per track 

I 26 
i 15 
I 8 

! 26 

i 15 

Logical interleave, skeu, and track offset 

Interleave is the logical reordering of physical sector 
numbers on a single track. Skeui is the varying physical 
sector number used as the first logical sector on the track. 
Track offset is the physical track numberi from to number 
of tracks per side, used as logical track O. 

System Interface and driver operation 

The driver uses slot static RAM for it's static local ta- 
bles. Each slot has own page(256 bytes of RAM) but drives 
in the same slot have the same tables, i.e. interleave, 
skew. etc. The driver allocates its local temporary data 
area on the stack. 

Unitinstal 1 

The install procedure must be called at least twice for 
every controller card in the system. For the first call, 
the drive number in the device table for the unit must be 
set to 2ero(0) and the slot number field set to the correct 
slot number. The unitinstall procedure will then determine 
the number of drives connected to the controller card. 
Drives addresses range from O to 3. The driver starts 
searching at drive address and looks to find the first 
drive number that does not respond. It reports the number 
of drives found in the number of drives field of the slot 
array in the system slot table 

The unitinstall procedure is then called with a different 
unit number for each drive to be mounted. The calling 
program must fill in the slot number and drive number field 
in the unit's device table entry before calling the install 
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procvdur*. Legal drivt number* are 1-4. 

One copy of the driver in the system can be used for all the 
floppy units. The driver keeps the static inforfflation on 
each controller in the slot's RAM page in the static RAM. 
Therefore, multiple drives attached to different controller 
cards can have different parameters. 



Unitunmount 

Does nothing. 



Unitread 



Reads blocks from floppy. It reads single/double density 
and single/double sided. Reads partial blocks. Returns to 
user only the number of bytes requested starting at the 
START BLOCK parameter passed to driver. Partial blocks 
start at beginning of blocki not in middle of block. 

Unituirite 

Writes blocks from floppy. It writes single/double density 
and single/double sided. Partial blocks can be uritteni but 
only from the start of a block; i. e. the middle 128 bytes 
of a block could not be seperately uritten. 

Unitbusy 

Aluiays true. 

Unitclear 

Initializes the floppy disk controller then restores drive 
to track zero and determines type of floppy in drive. 

Unitstatus 

The revision B floppy driver supports a number of new UNIT- 
STATUS calls. These are listed below. 

1) change logical sector interleave 
function code : 

CCOS Manual Page 119 



Parameter Block 

Interleave = word/ range = 1.. (sectors per track). 

2) change logical skeu 

function code : 1 

Parameter Block 

Skew = word, range = 1. . (sectors per track). 

3) change track offset 

f unc t i on code : 2 

Parameter Block 

StartTrack = word, range = O. . (tracks per side). 

4) change step rate 

f unc t ion c ode : 3 

Parameter Block 

StepRate = word, range = 1. . 16. 

5) change number of sectors per track 

function code : 4 

Parameter Block 

Sectors per track = word, range = O. . 127. 

A value of means use the default internal table 
based on density and sector size. 

6) change number of tracks per side 

f unc t i on code ; 5 

Parameter Block 

Tracks per side = word, range = 0. . 127. 

A value of means use the default 48 TPI standard 
number of tracks, 77. 

7) change timeout counter for waiting for drive to come 
Read y . 

f unc t i on code : 6 

Parameter Block 

TimeOut = longint, range = positive integer. 

B> get driver state. the function returns : 

all changeable attributes 

a) interleave 
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b) skeu 

c) track offset 
d > step rate 

e) sectors per track 

f> tracks per side 

g> Ready uait timeout 

and driver determined diskette states 
(queries floppy to find out) 

a) presence of a floppy in drive 

b) density 

c ) sides 

d ) sector size 

function code : 7 

Parameter Block : all fields set by driver. 

record 

intrlv, -Cinter leave> 

s k eui> 

StartTrack, 

StepRate, 

spti -Csectors per track> 

tps/ -Ctracks per side> 

SectorSize : integer; 

TimeOut : longint; 

Diskette, -Ctrue if diskette in drive> 

OneSidedi {true if 1 side only> 

SnglDensity/ -Ctrue if single density> 

UserSPT : boolean; -Ctrue if user set spt> 

end; 

The Diskette field must be true to have valid One- 
Side, SectorSize and SnglDensity fields' values. 



lOresult codes returned by driver 

Name Value Comment 



CRC error 

Invalid I/O request 

Nebulous hardware error 

Drive off line 

Device write protected 

Invalid block number 

Timeout error 

Cannot restore to track 

Disk not formatted 
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lOEcrcer 


1 


lOEioreq 


3 


lOEnebhrd 


4 


lOEoff In 


5 


lOEwrprot 


16 


lOEinvblk 


18 


lOEf Ipto 


24 


lOEnoTO 


25 


lOEnfmtd 


26 



lOEinvsct 27 Invalid sector length error 

lOEurngC 28 Read urong track 

lOEbdtrk 29 Track marked as bad (IBM spec 

lOEuiopm 34 Invalid unit I/O parameter 

lOEfnccd S6 Invalid function code 
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The Enhanced Printer Driver 

The enhanced printed driver operates as a "front end" pre- 
processor to the standard /printer or /dtacom driver. It 
supports the printing of the on-screen (display driver) 
enhancements of underlining^ superscript' subscripti strike 
outi and boldface (assuming the printer can print them). 

The driver operates by intercepting the ESCAPE e enhancement 
seq.uence and translating it to the sequence of characters 
required by the printer in use. The translation is directed 
by a printer action table (created uiith the BLDACT utility 
supplied by Corvus). In addition/ a seperate table of alter 
nate characters allows the user to define and print special 
characters, which are entered through the keyboard by hold- 
ing the CALT] key down while pressing another key. The user 
can define special characters for these ASCII codes (128- 
255) and direct their printing with the appropriately con- 
structed alternate character table. The alternate character 
table is created with the supplied BL.DALT utility 

The enhanced printer driver normally operates through data- 
comm port 2 and supports all normal datacomm parameters 

The printer driver uses the following standard driver com- 
mands : 

1) Unitwrite : send characters to printer or turn on/off 

enhancements. 

2) Unitbusy Boolean response stating whether or not the 

printer driver is able to accept more charac 

ter s. 

3) Unitclear : Clear the internal buffer of the driver and 

reinitialize the state of the driver enhance 

ments. 

4) Unitinstall : Initializes the driver to its default 

state. 

a) Attach the driver to the default Datacom driveri 

b) initialize the UART to its default states 

c) initialize the driver's internal variables/ 

5) Unitunmount : Deattach driver from system. 

6) Unitstatus ; used for several driver dependent functions 

a) change or return the UART state 

b) return state of driver/ i.e. buffers. 
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c) change state of driver Uniturite> to Transparent 
mode or Translate mode. 

d) install a new Alternate Character Translation 
Table. 

e) Attach driver to another unit. 

f) select the pitch the driver/printer is uorking in 

g) select the number of lines per inch, 
h) install a new Printer Action table 

i) return state of pitch and number of lines per 
inch. 

Uniturite 

The Unitwrite function sends characters to the printer. 

When the driver is in Translation modei it will translate 
the character stream going to the printer. In this mode the 
driver can add or remove enhancements to the characters sent 
to the printer. Enhancements are controlled by an escape 
character seq.uence. The sequence is : 

ESCAPE e FLAOBYTE 

where ESCAPE is the control character escape (hex value 
*1B)/ e is the ASCII character for lower case e (hex value 
♦65)( and FLAGBYTE is a byte (one character) of bit flags 
representing the state of the enhancement flags. The 
FLAOBYTE has the form : 

Bit Number Function 

Bold enhancement 

1 Strike Out enhancement 

2 Inverse enhancement 

(not implemented) 

3 Underline enhancement 

4 Superscript enhancement 

5 Subscript enhancement 

6 bit must always be 1 

7 Double Underline enhancement 

(not implemented) 

The Inverse and Double Underline enhancements are not imple- 
mented in the printer driver. Bit 6 is always 1 so the byte 
can never have a value in the control code range (hex ♦00 
through *1F). This is necessary to prevent trouble when trans- 
mitting this character sequence over DataCom lines. 

After an printer enhancement sequence is started, all subse- 
quent characters will be printed with the specified enhance- 
ments until a terminating command (enhancement sequence with 
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all flag bits off) is sent. 

The strikeout enhanceoient is performed on a per character 
basis. A character to be struckout is first printed. A 
backspace operation is performed on the printer. Finally/ 
the overstrike character/ the minus sign "-" (hex value 
*2D}/ is printed. Any printer used uith this driver must be 
able to perform a single character back space using the 
backspace character code (hex value »08>. Furthermore, the 
printer must perform the backspace operation using the same 
character spacing used on the character that is struckout. 
This last req.uirement is needed to properly do proportional 
spac ing. 

Superscript and subscript are performed by first making the 
forms advance distance shorter. Then a line feed or reverse 
line feed operation is done to lower or raise the print 
position to an area between lines. The forms advance dis- 
tance is then restored to the normal value for the current 
number of lines per inch. This is necessary in case the 
enhancement is carried on after a CR. When the enhancement 
is turned off. the same operations are performed except the 
opposite forms advance direction is used. 

The function in translate mode accepts another escape se- 
quence to do overstrike. This sequence is : 

ESCAPE <:FirstChat> <OverChar> 

where ESCAPE is the control character escape (hex value 
»1B). O is the ASCII character for upper case o (hex value 
♦4F), FirstChar is the character to be overstruck. and 
OverChar is the character to overstrike FirstChar. 

The overstrike enhancement is performed with the same method 
as the strikeout enhancement. It also has the same require- 
ments in terms of the backspace operation on the printer. 

The Unitwrite function will also perform proportional spa- 
cing on a line per line basis. Proportional spacing does 
not have to start at the beginning of the line or stop at 
the end of the line- it can begin and end anywhere. To 
turn on proportional spacing, send the following escape 
character sequence to the driver before sending all the 
characters to be proportionally spaced. 

ESCAPE P <# of Chars> <# of Pads> 

where ESCAPE is the ASCII escape char (•IB). P is the pro- 
portional spacing indicator character upper case P (hex 
value $50). <# of_Chars> is an unsigned byte representing 
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the numbvr of characters to do the proportional spacing 
uiithi and ># of Pads> is an unsigned byta raprasanting the 
numbar of character spaces to pad with. 

The driver performs proportional spacing by adding extra 
microspaces betueen each of the character symbols. This 
mechanism takes the number of full character pads needed an 
divides the space as eq,ually as possible among the charac- 
ters. It uill add an extra li 2> or 3 l/120ths of an inch 
betueen each character. The maximum number of character 
space pads is a function of the pitch. 

10 pitch : 3/12 * <# of_Chars> maximum number of pads 
12 pitch : 3/10 * <# of Chars> maximum number of pads 

If the number of pads needed is greater than the amount of 
microspaces the driver can add the driver will return an 
error I/O result code. Unlike with most errors the driver 
detectsi it does not immediately return to the caller if 
more characters are available. It processes the remaining 
characters with the proportional spacing off. 



The driver recognizes a special characteri hex code *AOi for 
alternate space. This is the "rubber" space code. It is used 
by some applications such as EdMord for proportional spa- 
cing. This character is not sent to the printer; but is 
used by the driver. If proportional spacing is turned off> 
then *A0 is treated as an alternate character and is used 
to index into the alternate character translation table. 

All characters! except characters within the escape sequen- 
ces and the "rubber" space previously mentioned) which are 
in the alternate character set (hex values $A0 to *FF) are 
translated via the Alternate Character Translation Table 
into a character sequence which will get the character's 
symbol printed. This translation is performed prior to any 
other processing of the Unitwrite character stream. There- 
fore; the escape sequence for overstrike may be used as the 
translated sequence for an alternate character. The table 
has the following form : 



RECORD 

PTR_CHAR_SEQ 
CHAR_INDEX 
CHAR_SEQ 
END; 



pCHAR_SEQ; 

ARRAYCO. . 963 OF Unsigned_by tei 

ARRAYCO. . LAST STR3 OF strSi 



PTR_CHAR_SEQ is a pointer to the CHAR_SEQ array. The array 
CHAR_INDEX is indexed by the alternate character minus «A0. 
The value is either an index into the arr»\i CHAR_SEQ or •FF 
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which msans no CHAR_SEa string cxittt for this «ltcrn«t» 
ch«ract«r. CHARSEQ is a variabla l*ngth character saquanca 
(with a maximum length of 8 characters) which is sent to the 
printer for any alternate character with a CHAR_INDEX which 
points to it. Therefore! several alternate character codes 
can use a single character sei^uence. Alternate characters 
with a CHAR_INDEX value of ♦FF do not have a character se- 
quence- they are sent to the printer with bit 7 cleari and 
translated to a 7 bit character code. 

The driver has a default table defined for the NEC 7710 
printer with NEC thimble Courier 72. 

If the driver is in transparent mode NONE of the previously 
mentioned character stream processing is performed. The 
characters are sent directly to the printer with no enhance 
ments. This mode is useful for sending special printer 
control escape seq.uences directly to the printer. It is 
also useful for utilizing the graphics capabilities of some 
printers. 



Unitbusy 



This function states whether the printer driver can accept 
characters into it's buffer. TRUE means the buffer is NOT 



Unitstatus 



All functions that are passed through to the attached unit 
have function codes less than *80. All internally processed 
functions, except the port select functioni have function 
codes greater than or equal to *80 and less than or equal to 
*FF. The select port function is processed internally but 
has a function code less than *80 in order to maintain 
compatibility with the old printer driver. 

The general form of the UnitStatus call to the enhanced 
printer driver is: 

Unitstatus( PrinterUni tNumber. ParamBlock. FuncCode ); 

where Pr interUnitNumber is the unit number for the printer 
driver <6)i ParamBlock is the parameter block which varies 
according to the function performed> and FuncCode is a word 
containing the function code. 

There are several classes of UnitStatus calls: 
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1) pass through functions (compatible uiith old drivar) 

Baud rates Function code 1 

parity Function code 2 

word size Function code 4 

handshake protocol Function code 9 

2) intcrnallvi processed functions (compatible with old 
driver ) 

port Function code 3 



b> return state of driveri i.e. buffers. 

Free space in transmit buffer Function code O 

The Buffer should be an integer; the call will return the 
number of bytes free in the transmit buffer. 



c) change state of driver Unituirite to Transparent 
mode or Translate mode. 

This is a very important call! 

When the driver is in transparent mode< all enhancements 
performed by the printer are turned off. Thus, all charac- 
ters will be sent directly to the printer with no processing 
performed. Since characters in the output buffer will be 
affected, the user should not switch driver modes unless the 
buffer is empty. The default state of the driver is the 
translate mode. 



d) install a new Alternate Character Translation 
Table. 

The function code for this call is »81i Buffer is a pointer 
to the address of the new translation table. The default is 
the table for the NEC 7710 type printer with the Courier 72 
thimble. 

If the pointer to the new table is Nil (equal to zero) then 
the default Alternate Character Translation table is used. 



e> Attach driver to another unit. 

The function allows the user to send the output to any 
driver mounted in the system, using the UnitUrite and Unit- 
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status interfaces. Appendix B contains the listing of a 
Pascal program that uill attach a neu output driver to the 
enhanced printer driver. 

The function code for this call is *82; Buffer in an integer 
which contains the unit number of the neu driver. 



f) Change the pitch (CPI) of the driver. 

The function code for this call is ♦83s Buffer is an integer 
contains either a (12 pitch) or a 1 (10 pitch) 

The default is 10 pitch. 

g) Change the lines per inch of the driver. 

The function code for this call is ♦84* Buffer is an integer 
which is either (8 LPI) or 1 (6 LPI). 

The default is 6 lines per inch. 

h) Install a new Printer Action Table 

The function code for this call is ♦85; Buffer points to the 
neu printer action table. 

If the pointer to the neu table is Nil (eq.ual to zero) then 
the default Action table is used. 

The follouing is a list of the functions necessary for a 
given printer: 

1) Turn on underline. 

2) Turn off underline. 

3) Turn on bold (Nee calls this enhancement 
Shadou) . 

3) Turn off bold 

4) Reverse (or Negative) line feed. This function 
must be affected by a change to the form 
advance distance (see S). 

5) Change form advance distance for variable line 
feed size. This is used uith 4 and 5 to perform 
and superscript. 

6) Change the character spacing. This is needed 
for proportional spacing. 

The table has the follouing structure/ represented as a 
pseudo Pascal record. It is currently 102 bytes long. 
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record 






UnderLineOn 


str7i 




UnderLineOff 


str7; 




BoldOn 


str7i 




BoldOff 


str7i 




RevrsLF 


str7i 




Backspace 


str7; 




SixLinesInch 


record 






SubSuperForfflAdv 


str7; 




Norma IFormAdv 


str7i 




end. 




EightLinesInch 


record 






SubSuperFormAdv 


5tr7i 




Norma IFormAd v 


5tr7i 




end; 




PitchlO 


record 






NormalSpacing 


str7i 




MicrolExtra 


str7i 




l*licro2Extra 


str7; 




Micro3Extra 


str7; 




endi 




Pitchl2 


record 






NormalSpac ing 


str7i 




MicrolExtra 


str7i 




Micro2Extra 


str7i 




Micro3Extra 


str7i 




endi 





end; 

Str7 is a Pascal string with a maximum of 7 characters/ not 
including the leading length byte. 



Field descriptions: 

UnderLineOn : Character sec^uence for printer to turn 

underline on. This must stay on until sent 
sequence to turn underline off. 

UnderLineOff : Character sequence for printer to 
turn underline off. 



QoldOn 



BoldOff 



Character sequence for printer to turn bold 
printing on. This enhancement is called 
Shadow on the NEC spinuiriter. This enhance- 
ment is assumed to turn off automatically 
after the printer receives a CR (Carriage 
Return hex value ♦OD) character. 

Character sequence for printer to turn bold 
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printing off. 

RevrsLF : Character sequence for printer to perform a 

reverse linefeed operation. This function is 
necessary for subscript and superscript. 

Backspace : Character sequence for printer to perform a 
back space operation. On most printers this 
is the code »08 for BS. This function is 
necessary for overstrike and strikeout. 

SixLinesInch ; This record's fields are used when the prin- 
ter is in 6 lines per inch mode. 

EightLnsInch : This record's fields are used when the prin- 
ter is in 8 lines per inch mode. 

SubSuperFormAdv : Character sequence to change the form 

advance distance to roughly a quarter of the 
normal form advance distance. This field 
varies according to the lines per inch used 
by the printer. For the Nee 7710 printer 
using 6 lines per inchi this form advance 
distance is 2/48 of an inch. The character 
sequence is escape, "3", "Q". This function 
must change the form advance distance on the 
reverse line feed operation as well as the 
line feed operation. 

NormalFormAdv : Character sequence to change the form advance 
distance to the standard distance used by the 
current pitch. This field varies according 
to the lines per inch used by the printer. 
For the Nee 7710 printer using 6 lines per 
inch, the normal form advance distance is 
8/48 of an inch. The character sequence is 
escape, "3", "W". 

PitchlO : This record's fields are used when the prin- 
ter is in 10 pitch or 10 characters per inch 
(CPI). 

Pitchl2 : This record's fields are used when the prin- 
ter is in 12 pitch or 12 CPI. 

NormalSpac ing : Character sequence to set the printer spacing 
to normal distance for the given pitch. For 
the NEC 7710 running at 10 pitch the spacing 
value is 12/120 of an inch and the character 
sequence is escape, "1"> "L" . 
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MicrolExtra : Character S8q.uance to changa tha character 
spacing by adding an extra l/120th of an 
inch. For the NEC 7710 running at 10 pitch 
the spacing value is 13/120 of an inch and 
the character sequence is escape. "1", "M". 



Micro2Extra : Character sequence to change the character 
spacing by adding an extra 2/120ths of an 
inch. For the NEC 7710 running at 10 pitch 
the spacing value is 14/120 of an inch and 
the character sequence is escape. "3", "N". 



Micro3Extra : Character sequence to change the character 
spacing by adding an extra 3/120th of an 
inch. For the NEC 7710 running at 10 pitch 
the spacing value is 15/120 of an inch and 
the character sequence is escape. "!"• "O". 
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Everything else not covered in chapters 1-5 



This chapter deals with all of the other CCOS ancillary 
information and miscellanea not covered in the first four 
chapters. This includes startup and exec filesi as uiell as 
the command line parameters accepted by the systems utili- 
ties. 

Also covered are use of the linkeri including the linking of 
Pascali FORTRANi and machine code segements; using the 
library utility to maintain custom routines in libraries< 
instructions on the use of the Pascal and FORTRAN compilers! 
and the use of various system utility programs. 
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Us« of EXEC Files 

Exec files are simple lists of commands in a standard text 
file that can be used to automate some processes. An example 
uould be the automatic compilation and linkage of a Pascal 
or FORTRAN program. 

Each record (line) in an Exec file is interpreted just as if 
it had been typed on the command line by the user. The 
format for a command line is: 

(command) (arg 1) (arg 2) . . . (arg n) (< ifile) (> ofile) 

ufhere the values of the command and arguments depend upon 
uihat's being done. The command parameter represents the 
system command or program file to be executed. A program 
file name with a ! prefix indicates that the program is in 
the system volume /CCSYS. 

IFILE and OFILE are the input and output file for the pro- 
gram I/O. These optional parameters make use of the I/O 
redirection facility in CCOS. 

Comments may be imbedded in a command file by using : i \ , i, 
or > as the first character of the line. The special command 
"PAUSE" can be used and followed with a text message whose 
context indicates a Y or N reply. Y replies continue Exec 
file processing; "N" replies abort the process. When a PAUSE 
record is encountered, Exec file processing halts and the 
text message is displayed. The system accepts a keystroke 
from the user and evaluates as described. 

CCOS recognizes a special command file with the name START- 
UP. TEXT if it is on volume 5. If CCOS finds this file during 
a boot, it will automatically be executed. This facility can 
be used to automatically configure a system (i.e. display 
character seti printer parameters, etc. ) to a user's 
requirements. 

Examples of Exec files are given after the system utility 
parameters. 

File Manager Parameters 

The file manager commands are as follows: 

CATFIL Filel (File2. .. ) > Outputfile 

CPYFIL -VDstVol (-D) (-Q) (-S) SrcFill (SrcFil2. ..) 

CRUNCH (-Q) /Voll (/Vol2. . . > 

DELFIL (-Q) (-T) Filel (File2. ..) 
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FLPDIR /Volome 

LSTFIL Filel <File2. . . ) 

LSTVOL (-B) (-H> (-L) /Voll (/Vol2. ..) 

LSTVOL / (Lists default volume) 

LSTVOL ! (Lists system volume) 

MAKFIL NetuNamelClength3 (NeiiiName2CLength3. . . ) 

RENFIL OldName NewName 

RENFIL /OldVol /NewVol 

SETVOL /Volume 

All of these commands must be prefixed with ICC.FILMGR. 



System Manager Parameters 

The system manager commands are: 

SETDAT (NeuiDate) 
SETTIM (NeuiTime) 
DRVVRS ( Display driver versions ) 

SETDAT and SETTIM will display the date or time if no para- 
meters are giveni or set the date or time if parameters are 
given. The date parameter must be in the form dd-mmm-yyi and 
the time parameter must be in the form HH: MM: SS (24 hour 
time ) . 

These commands must be prefixed with ICC.SYSMGR. 

Window Manager Parameters 

The window manager parameters are: 

BOXUND - Box or unbox current window. 

CLRWND - Clear current window. 

CSDISP Filename - Load display char set for current 

window. 

CSKYBD Filename - Load keyboard character set. 

DEFSCN - Clear screen and display border. 

DEFTTL - Update screen data. 

REVBKG - Reverse window background. 

SCRLMD - Toggle scroll mode. 

All of these commands must be prefixed with ICC. WNDMGR. 
Note that you cannot createi delete> or select windows from 
a command file. 



Parameters for DataComm and Printer 

CCOS Manual Page 135 



The SETDCP utility allows the user to set the protocol and 
parameters for the datacofflin drivers. Command lines for 
setting up the datacomm and printer drivers take the form: 

Keyword =Parameter 

1. NO BLANKS are permitted uithin a parameter 

2. Parameters and keywords can be abbreviated to 
their shortest UNIQUE string. 



Key Words 

UNIT 

BAUD 

PARITY 

HANDSHAKE 



DATACOM 

CHARSIZE 

ALTCHARTABLE 

ACTIONTABLE 

CPI 

LP I 

AUTOLINEFEED 



Parameters 

PRINTER. DCl, DC2 

300, 600, 1200, 2400, 
4800, 9600, 19200 

DISABLED, EVEN, ODD, 
MARK, SPACE 

LINE/CTS/NORMAL, 

LINE/CTS/INVERTED. 

LINE/DSR/NORMAL, 

L I NE/DSR/ INVERTED, 

LINE/DCD/NORMAL. 

LINE/DCD/ INVERTED, 

XGNXOFF 

ENQACK 

ETXACK 

NONE 

1, 2 (Only for printer) 

7, 8 

<file name> 

<file name> 

10, 12 

6, 8 

ON, OFF 



Default values: 
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DataComm 1 (RS-232 port 1) 

BAUD»9600 

PARITY=DISABLED 

HANDSHAKE=XONXOFF 

CHARSIZE-8 

AUTOLINEFEED=GN 

DataComm 2 <RS-232 port 2) 

BAUD=4800 

PARITY=DISABLED 

H ANDSH AKE=L I NE / DSR / NOR M AL 

CHARSIZE=8 

AUTOLINEFEED=ON 

Printer (configured for NEC 7700 Spinuiriter) 

BAUD=1200 

PARITY=SPACE 

HANDSHAKE=XONXaFF 

CHARSIZE=7 

DATAC0M=2 

AUTOLINEFEED=ON 

CPI=10 

LP I =6 

Note: The UNIT parameter MUST be specified before any 
other parameter! 

Parameters for spooler and despooler 

For the spooleri command line parameters are as follows: 

Keywords Parameters 

Set or Alternate 1,2.3,4,5 

Include <include string> 

Message <message string> 

New <new page string> 

Text Yes, No, True, False, Y, N, T, F 

Enhance Yes, No, True, False, Y, N, T, F 

Pipe <file name> 
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Defaults are: 



Set = '.J 

Include = <*I 

Neuj = PG 

Text == YEH 

Message = Route to <:user> on <:date> 

Enhance = YES -C TRUE strips enhancements > 

Pipe = PRINTE-R 



The Set and Alternate keywords specify that spooling be 
directed to a slot other than the default of 5. The 
Include and New keywords specify the strings that cause the 
spooler to recognize include files and page breaks. For 
example, EdWord uses PG to specify a page break, while the 
Pascal compiler uses <tPy. The Message keyword specifies a 
message that is printed on the title page of the spooled 
text file. The default message is "Route to 'Cuser name> on 
<:date>. " 

Example: Spooling a Pascal program listing: 

Spool N={*PG I={*I /Pascal/Newprog 

Note that the new page and include file parameters are set 
correctly for a Pascal file. The spooler default for 
include file is the Pascal notation, while the default for 
the new page is EdWord notation. EdWord doesn't use 
include files, so the Include parameter can be ignored. 
When spooling a Pascal file, only one default need be 
changed. 

Since the spooler can also be used to send non-textual 
(i.e. program and data files) to another machine, the Text 
flag is provided to allow the user to disable some of the 
translation that normally takes place on text files. Non- 
textual files should never be spooled to a printer! 

Example: Spooling a data file 

Spool T=N P=Fi5cal /Da tal /Fi scalS3. DTA 

Note that a new pipe name was specified to prevent the 
default pipe name of PRINTER from being used. 

Notes: All keywords may be abbreviated to their first 
letter. If Text is false, the Include, New page, and 
Enhance parameters are invalid. 
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The despooler takes a seperate set of parameters from the 
spooler, keeping only the Set/Alternatre and Pipe parame- 
ters in common. 

Keijuiords Parameters 

Device <file name> 

Expand integer 

Header True, False. Yes. No. 

T. F. Y, N 

Linefeed True. False. Yes. No. 

T. F, Y. N 

Maximum lines/page integer 

Trailer page True. False, Yes. No. 

T, F, Y. N 



Defaults aTe: 

Device = PRINTER 
Expand = 8 
Header = YES 
Linefeed = YES 
Maximum = 58 
Trailer = YES 

The Device parameter specifies the device or file name to 
send the despooled output to. Expand takes as a parameter 
the number of spaces to expand tab characters. Header and 
Trailer specify the printing of header or trailer pages, 
useful in seperating files on a network printer. Maximum 
sets the maximum number of lines per page before a new page 
is forced. Linefeed forces a linefeed after every carriage 
return. 

Example: Despooling the Pascal file: 

Despool D=PRINTER 

Example: Despooling the data file: 
Despool D=/MyVol/Fiscal83 
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Examples 

The following example is a hypothetical STARTUP. TEXT file: 

■£ First we'll set up our printer > 

ICC.SETDCP U=PR INTER BAUD=1200 PAR=DISABLED HAND=XONXOFF 

< Now our modem > 

!CC. SETDCP U=DC1 BAUD=300 CHAR=8 HAND=XONXOFF 
■C Now load a big character set > 
ICC.WNDMGR CSDISP /CCUTIL/CSD. 09. 14. ALT 

< Fire up EdWord > 
!ED /WORK/NOVEL 

The first two lines could have been combined and abbreviated 
as follows: 

ICC.SETDCP U=P B=1200 P=D H=XONXOFF U=DC1 B=300 C=8 H=XONXOF 
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BLDACT- The printer action table utility 

The BLDACT utility normally resides on the /CCUTIL volume 
and is used to build printer action tables. A printer action 
table consists of a list of the special character sequences 
used to enable certain printer functions< such as boldface 
and underlining. The enhanced printer driver uses the 
information in the printer action table (if present) to 
control the printing of these enhancements by sending the 
correct character seq.uences to the printer. A given 
character seq^uence may contain up to seven characters. 

It's a good idea to have a copy of the printer manual nearby 
when executing BLDACT. The enhanced printer driver makes 
the following assumptions about a printer: 

* Boldface and underlining can be turned on and off 
by character sequences. 

* The printer can perform reverse linefeeds. 

* The printer can set the amount of space a linefeed 
or reverse linefeed causes the platen to move. 

Some printers tuill not be able to support the full range of 
enhancements. For examplei on printers that cannot underline 
directly> a popular underlining method is to backspace and 
overstrike with an underbar. This methodology is not suppor- 
ted. 

When BLDACT is executedi the following screen appears: 



BLDACT Cl.ObD Build Printer Action Table 
(c) Copyright 1983 Corvus Systems Inc. 

Character sequences to perform 

Underline on 

Underline off 

Bold on 

Bold off 

Reverse line feed 

Back space 

Superscript and subscript control sequences 



6 LPI Normal form advance distance 

Sub and superscript form advance. 

8 LPI Normal form advance distance 
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Sub and superscript form advance. 
Proportional spacing control seq.uences 
10 CPI 



12 CPI 



Normal character spacing 

Plus l/120th of an inch spacing 
Plus 2/120th of an inch spacing 
Plus 3/120th of an inch spacing 



Normal character spacing 

Plus l/120th of an inch spacing 
Plus 2/120th of an inch spacing 
Plus 3/120th of an inch spacing 



Fl 



F2 



F3 



F4 



F5 



Prev 



Next 



DelCharlClrField! 

+ 



F6 



F7 



F8 



F9 



FIO 



IReadFilei 

+ 



IWritFile! 



Exit 



The 



cursor will be positioned at the top of the form, just 
.,^_- ,,_ j^. — -pf,g idea is to type in the 

The cursor can 



by the Underline On position. .... .-.- .. 

characters needed to perform each function. .... ww. .w. ww... 

be moved up or down with either the arrow keys or the CPrev3 
and CNext3 keys. 

For example/ if the printer is use takes Escape-E as a 
command to turn on boldface, moving the cursor next to the 
Bold On position and pressing the "Escape" and "E" keys 
would show: 



Bold on ESCAPE "E" 



The left and right arrow keys can be used to move the cursor 
to the various characters in a control sequence. CDelChar3 
and CClrField] provide a simple editing capability that can 
be used to modify existing fields. Previously created tables 
may be edited by reading them into the utility with the F6 
key. 



After the action table is finished, 
/CCUTIL volume, preferably with an 
guish it as an action table. 



save it back out to the 
ACT extension to distin- 
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Before an action table can be used< it must be connected to 
the enhanced printer driver. The SETDTACOM function of 
SysUtils is used to perform this function. From the dispat- 
cher, type: 

CF53 - Invoke the systems utilities 

CF33 - SetDtaCm 

CF?] - PtrFunc 

CF53 - LdAction 

The system will prompt for the name of the action table 
file. After it's entered, pressing CF103 a few times will 
get out of everything, and the printer will be ready to 
use. 

An alternate method of attaching an action table is to use 
the ACTION keyword in the CC. SETDCP utility. This can be 
put into a startup file: 

ICC. SETDCP UNIT=PRINTER ACT10N=<f i lename> 

However, note that the SETDCP utility forces the printer to 
one or the other of the serial ports. If a printer is 
attached to a parallel card, this sequence would reassign 
the enhanced printer driver output to a serial port. In 
this case, execute the SETDCP utility before loading the 
parallel printer driver. The action table will remain 
active. 
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-OALT- The printsr alternate charactsr tabl* utility 

The enhanced printer driver supports an alternate character 
table. This allows the user to print special combinations of 
characters that are not part of the standard ASCII character 
set. 

Alternate characters are those characters typed uhen the ALT 
key to the right of the space bar is held down. This sets 
the high order bit of the character's ASCII value to 1. If 
an alternate character translation table is in use> the 
enhanced printer driver will use the alternate character as 
an index into a table of strings> and the corresponding 
string will be printed in place of the alternate character. 

For example) ALT-E could be used to specify the string "e"i 
backspace! "'"> to print an "e" with an accent mark over it. 
By using the character set editor to edit the appropriate 
character (ASCII of "E" + 128), it's possible for ALT-E to 
display correctly on the screen! 

When invoked, the BLDALT utilitiy will display: 

+ + 

BLDALTCl.OaJ: Build Alternate Character Xlation Table 
(c) Copyright 1983 Corvus Systems, Inc. 



+ + 

+ + 

I Enter alternate character or press function key: I 

+ + 

Fl F2 F3 F4 F5 

+ + ■ 

iReadFile! Select IShowStrsI iDlet Str ! 

+ + 

F6 F7 FS F9 FIO 

+ + 

IWritFilel ! I i Exit I 

+ + 

To create a new alternate character table, hold that ALT 
key and press another key. Almost any key on the keyboard 
may be used. The screen will display: 
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BLDALTC1.0a3: Build Alternate Character Xlatlon Table 
(c) Copyright 1983 Corvus Systems, Inc. 



Current alternate character 
Alternate "1" 



Decimal value xxx 
Hex value txx 



After a character has been enteredi pressing CSelect3 causes 
the system to prompt for the string to be sent in place of 
the alternate character. The string is entered by pressing 
the appropriate keys. The screen mill display: 



BLDALTCl. Oa3: Build Alternate Character Xlation Table 
(c) Copyright 1983 Corvus Systems, Inc. 



Current translation string: 
•Cstring appears here> 

Enter new string for Current Character: 
<new string appears here> 

Alternate "I" Decimal value xxx 

Hex value ♦xx 



A maximum of nine characters may be in a string for any 
alternate character. After one alternate character has been 
defined, another is selected by pressing ALT and the desired 
character. CShoiDStrs3 will show all alternate characters and 
their associated strings; CDletStr] will delete the table 
entry for the current alternate character. CReadFile3 and 
CWritFile3 load and save the alternate character tables, 
respectively. It's a good practice to use an .ALT extension 
on alternate character files. 



BLDALT has 
reenter it 



no string editing facility; 
in its entirety. 



to change a string, 
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BLDCRT- The CRT Table Builder utilitg 

The Concept displag drivers DRV. DISPVT an 
table driven- the control sequences they 
kept in the CRT table. Changing the CRT 
way the display mill react to given contr 
allows the system to emulate other types 
the driver level. For examplei a communi 
that was used to talk to a computer confi 
Siegler terminal could just load the appr 
ured CRT action table. This methodology 
cations program from having to handle the 



d DRV. DISPHZ are 
respond to are 
table changes the 
ol codes> and 
of terminals at 
cations program 
gures for Lear 
opriately config- 
frees the appli- 
screen protocols. 



When it is executed^ the BLDCRT utility displays: 



BLDCRT CI. 03: Build a CRT table 

(c) Copyright 1983 Corvus Systemsi Inc. 

Common - Edit common CRT functions 

Cursor - Edit cursor movement functions 

Video - Edit video functions 

Graphics- Edit graphics functions 

liisc - Edit miscellaneous functions 

Test - Test current table 

ReadFile- Read file 

WritFile- Write current table to disk 
Exit - Exit 



+ + 

Fl F2 F3 F4 F5 

^ + 

IReadFile! Test ! Common I iMritFile! 

+ + 

F6 F7 F8 F9 FIO 

+ + 

! Cursor ! Video IGraphics! Misc t Exit I 

+ + 

Mhen CCommonli CCursor]> CVideoDi CGraphics]> or Cliisc] is 
pressedi the apprpriate functions will eb displayed on the 
screen> and the function keys will change to: 



Fl 



F2 F3 
I Clear 



F4 F5 

^ 

{WritFile! 



iReadFile! 

+ 



F6 



F7 



F8 



F9 



FIO 
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[Previous! Next 



i Exit 



For example, pressing the CGraphics] key mould display: 



Plot Point. 
Draui Line. . 
Fill Block. 
Copy Block. 
Set Origin. 



The cursor can be moved from one field to the next with the 
CPrevious] and CNextJ keys. Typing any other character 
causes that character to be entered at the cursor position. 
Each CRT function may be either one character (regular or 
control)* or an Escape folloued by a character. The char- 
acter sequence is entered by typing it. 

Character sequences cannot be edited, but must be replaced 
by pressing tClearD and then entering the appropriate chai — 
acters. 

Pressing the CExit3 key at this point will return to the 
outer level of the program. 

To attach a new function table to the display driver, a 
short Pascal program must be written: 



Program LoadCRTTab le. 

Uses <*U /ccutil/cclib> 
CCdefni 

Const 

DispUnit = 36; 



Var 
F 

FName 
Blk 



File; 

StringC803; 

Array CO. . 51 13 of Byte; 



Beg in 

Write( 'Enter name of CRT table file: 
ReadLn (FName) > 



'); 
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ReSet(F>FNainc>i 

If lOResuIt <> Then Begin 

WriteLnj 

MritaLn<'No such file!')i 

Exit(Lo«dCRTTable> 

Endi 
Blks :> BlockReadCF.Blk. l)i 
If Blks O 1 Then Begin 

WriteLn; 

WriteLn( 'Can"t read that file!'); 

Exit(LoadCRTTable> 

End; 
UnitStatusCDispUnit. Blk, 8) -C Attach! > 
End. 



More information on CRT tables can be found in chapter 5. 
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Program segmentation 

CCOS compilers support a segmentation directive that allows 
large programs to be broken up into segments. A segment is 
a collection of procedures that is either in memory, or 
not. When any procedure in a segment is called, the entire 
segment is swapped in from disk, if it is not already in 
memory. The maximum size of a segment is 32K words (64K 
bytes). Thus, programs larger than 64K bytes must be 
segmented. 

A segment will remain in memory as long as any procedure in 
the segment is executing or being called. (A procedure can 
be called, but not executing, if it has in turn called 
another procedure. ) As soon as no procedure in the segment 
is in use, it is swapped out. Once a segment has been 
swapped out. further references to any procedures in the 
segment force the segment to be called from disk. 

Calling a segment from disk takes roughly 50ms per block, 
while calling a procedure in memory takes only 20us. Thus, 
careless segmentation of a program can result in excessive 
disk thrashing and consequent dramatic reductions in perfor- 
mance. 

Ideally, a program's segments should divide the code into 
working sets. A working set is simply a collection of 
procedures that tend to get called in the same time frame. 
An example of procedure that belong in the same working set 
are the INSERTLINE and DELETELINE functions in an editor. 

A simple segmentation scheme is: 

+ + + + + + 

I Seg A! < — > I Seg B! < — > I Seg C! < etc. > 

+ + + + + + 



+ + 

! kernel I 

+ + 

> I In memory ! < 

In the above diagram, segments kernel and Seg C are resi- 
dent in memory, while segments A. B. . . . N are on disk. 
With this scheme, only two segments are ever in memory at 
one time. The program mainline is kernel, which always 
resides in memory, and calls the other segments. A Pascal 
program's mainline is always memory resident, since by 
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definition it is aluays either running or calling other 
procedures. If the kernel or any of the working segments 
exceed the 32K word segment size limit, then they must be 
segmented in turn. 

Both Pascal and FORTRAN support segmentation. The segment 
scheme is controlled through compiler directives. Proce- 
dures and functions in a segment need not be contiguous in 
the program source. For example, in the following Pascal 
program: 

■C»S segl> 
Procedure Glotzy. 

<. . . > 
Procedure Zilch; 

<. . . > 

<*S seg2> 
Procedure Hiccup. 

<. . . > 
Function Qwerty: Integer 

<. . . > 

•£»S segl> 
Procedure Largesse. 

the procedures Glotzy, Zilch, and Largesse would all be 
in segment segl. while Hiccup and Qwerty would be in seg 2. 

Segment locking 

Normally, only 32K words of a program's code may be resi- 
dent. In order to make use of the Concept's large memory, 
multiple segments may be locked in memory using the SegLock 
and SegUnLock procedures in CCLIB (the equivalent FORTRAN 
subroutines are SEGLCK and SEGUNL). There are some restric- 
tions on the use of these procedures: 

» Calls to SegLock and SegUnLock must 
be made from the segment being locked 
or unlocked. 

* Segments may be locked only one time 
before being unlocked. 

* Segments may be unlocked only one time 
before being locked again. 

» Segments must be unlocked in the reverse 
order in which they were locked. 
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FoIIoufing is a sample program demonstrating the use of 
SegLock and SegUnLock: 

Program SegText; 

Var 

J : Integer; 
Ch: Char; 

Procedure SegLock; External; 
Procedure SegUnLock; External; 

<«S segl> 

Procedure Lockit; 

Begin 

SegLock 
End; 

Procedure UnLockIt; 

Begin 

SegUnLock 
End; 

Procedure SeglA; 

Beg in 

WriteLn( 'Segment not locked') 
End; 

Procedure SeglB; 

Begin 

WriteLnt 'Segment locked') 
End; 

< > 

<4>S> -C Main segment > 

Begin 

For J := 1 To 50 Do SeglS; 

Lockit; 

For J := 1 To 50 Do SeglB; 

UnLockIt; 

Read(Ch); -C Wait for user to hit key> 

MriteLn; 
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For J :» 1 To 50 Do ScglA 
End. 
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The Linker 



The linker is a standard CCOS utility used to connect or 
link various object modules into a single, directly execut- 
able program. The OBJ files produced by the Pascal and 
FORTRAN compilers cannot be run, since they do not include 
the standard system I/O routines and whatever other special 
library units they might require. Additionally, they are 
not in the correct format, so even a completely standalone 
machine code routine mould have to be put through a dummy 
link in order to work. 

The linker operates by taking as input the pathnames of an 
arbitrary number of object files. The first file in the 
sequence is considered the "main" file. The linker attempts 
to complete unresolved references in the main file by find- 
ing the appropriate objects in the succeding files. The 
linker does type check the objects involved to make sure 
that the number and type of parameters in the main file's 
invocation match those of the actual object. 

Below is an example of the dialogue created when the linker 
is invoked with no parameters: 



LINKER - MC6B000 Object Code Linker 1. 1 01-Dec-B2 
(C> Copyright 1982 Silicon Valley Software, Inc. 



Listing file - 

Output file - Raskin 

Input file C 0BJ3 - Raskin 

Input file C.0BJ3 - /ccut i 1/cc 1 ib 

Input file C.OBJ] - ipaslib 

Input file C. OBJl - 

Linking segment " " 
The output is executable. 



< — Output file 
< — Program file 
■C — System lib stuff 
< — Pascal I/O stuff 
<I — We're done 



The linker can optionally generate a listing file showing 
memory map information and various linker messages. In this 
example, the generation of a listing file was skipped by 
pressing CReturn] without entering a file name. Note that 
all input files are assumed to have .OBJ extensions; thus, 
the output file name does not conflict with the first input 
file name, which is really RASKIN. OBJ. 

The linker can also be invoked by entering all the necessary 
Parameters on the command line. The parameter list consists 
of a list of pathnames. The first pathname is taken as *■'"• 
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first input file, and the output file name is generated by 
dropping the OBJ from the input file name. The preceding 
example could be called in this fashion: 

+ ^ 

i Select function: linker raskin /ccuti 1/cc 1 ib Ipaslib I 

+ + 

The final results would have been identical; only the mes- 
sages output to the screen would be different. 

Linker Options 

The linker has several optional capabilities which can be 
entered on the command line when it is invoked. Linker 
options are Single letter codes proceeded with a + sign to 
activate them or a - sign to deactivate them. 

Option Default Function 

P ~P Display status information. 

Q +Q -Q forces overlay format for 

the generated file. The stan- 
dard is q.uick load format. 

^ ~U Lists unreferenced entry points. 

^ ~M Lists a memory map in the order 

in which the modules are linked. 

^ ^^ Lists memory map in alphabetical 

order. 

^ ~S Shows all symbols starting with a 

% character. These symbols are 
generated by the compilers. 



.inker error messages 

There are three types of linker error messages. WARNINGS are 
correctable errors. If an input file name was misspelled and 
the linker couldn't find it. a 

*** Warning - Can't open input file *** 

message would be displayed. The user then has the opportuni- 
ty to reenter the file name with the correct spelling. 
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ERRORS allou the user to proceed, although the resulting 
file uill not be executable. An example would be an a file 
with an unresolved external reference. 

FATAL ERRORS are those that the linker cannot recover 
gracefully from. In these cases the linker will either 
return to the dispatcher or kill the system. 

Partial linking 

Partially linked files are those with unresolved external 
references. Partially linked files can be used in subsequent 
link operations to form executable files. 

Use of libraries 

The intelligent and structured use of libraries can save a 
substantial amount of time during linking. A library is any 
collected group of routines. Examples of such libraries 
include the PASLIB library, which consists of Pascal I/O 
routines, and. more generally. CCLIB. which consists of 
various UNITs designed to make use of the Concept's 
features easier for the programmer. 

When a library name is given to the Linker as part of the 
linking process, the Linker will automatically search the 
entire library in its attempt to satisfy unresolved external 
references in the host program. Thus, if you had a group of 
10 machine code routines that you used often, you could use 
the Librian (see next section) to create a single library 
containing all these routines. Thus, a program that used six 
of these routines could link to all of them with a single 
file name, rather than forcing the user to type in six 
different file names. 

For more information, see the section on the Library 
utility below. 

Linking Pascal with FORTRAN with assembly... 

Since all languages (currently) available under CCOS produce 
native code, it is theoretically and even practically possi- 
ble to link segments produced by different languages into a 
single, executable program module. 

The user who wishes to link modules from disparate languages 
must be cognizant of the different data structures supported 
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by th« various languages. Most Pascal structures do not map 
dirsctly to FORTRAN structuras. and tha intarpratation of 
things such as sats (and othar anumaratad typas) is tha 
responsibility of tha host program. 

A intimate knouledge of the internal representation of 
Pascal and FORTRAN data structures is recommeded. The appro- 
priate information may be found in the Pascal and FORTRAN 
manuals. 
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Th« Librarian 

Th« Librarian is a utility uhosa purpose is to maintain 
groups of sepsrately compiled <or assembled) routines as 
libraries. Seperate compilation is a useful feature that 
allows routines that mill be used often to be compiled (or 
assembled) once and then be available for linking. 

The routines must be Pascal UNITs. Machine code or FORTRAN 
programs must therefore be called by a Pascal host. The 
structure of a UNIT is detailed in the Pascal reference 
manual. 

Beloui is an example of a simple Librarian session. The 
Librarian utility is named LIBRARY. 



LIBRARY - MC6B000 Library Utility Ol-Dec-82 

(C) Copyright 1982 Silicon Valley Systems, Inc. 

Listing file- LIBLST 

Output file- /CCUTIL/NEWLIB. OBJ 

Input file C. 0BJ3- GRAFl 

Input file C. 0BJ3- GRAF2 

Input file C. 0BJ3- < 

Reading GRAFl. . . 

Copying interface text of GRAFl 
I Reading GRAF2. . . 
I Copying interface text of GRAF2 



user presses RETURN > 



Attempts to create libraries from routines that are not 
proper units will result in the rather cryptic message 

Bad block 10 in <filename> 

Once routines are collected in a library, the Linker will 
automatically search the library for functions and proce- 
dures external to a given host program. Linking can there- 
fore be greatly simplified since a single library link can 
replace an arbitrary number of seperate links. 
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Running the compilers 

The supplied CCOS compilers (Pascal and FORTRAN) read text 
files produced by EdUord and produce machine code modules 
which are linked with the appropriate external and run-time 
routines to create executable programs. 

The compilers cannot read EdWord workpads directlyi the pro- 
gram text must be moved outside the EdWord workspace with 
the CSaveFileJ command from within EdWord. CSaveFileJ 
automatically appends the necessary ".TEXT" extension to the 
file name. 

Both compilers operate in the same fashion: the supplied 
text file is compiled to an intermediate code or I-code 
file. The compiler then invokes the code generate which 
produces 68000 machine code from the I-code file. There is 
only one code generator; it is used by both compilers on 
the system. 

The I-code file is normally automatically deleted which the 
code file is generated. Under some circumstancesi such as a 
power failure or system crash, the I-code file may be left 
open and in an indeterminate state. This situation is 
generally brought to the attention of 

The compilers are invoked by typing: 

Pascal <filename> 

or 

Fortran <filename> 

These invocations will expect a file called <f i lename>. TEXT 
and procedure a file called <f ilename>. OBJ. No listing file 
will be produced. These defaults may be overridden by 
specifying input, object, and listing files in the command 
line: 

Pascal -Kinputf ilename> -o<outputf ilename> 
-Klistingf ilename> 

The same -i, -o, and -1 specifiers may be used with the 
FORTRAN compiler. 
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<• •) 

<« File: OS: OS. GLOBALS. TEXT «) 

<♦ •) 

<* (C) Copyright 1981 Silicon Valley Softuare, Inc. *) 

<* «) 

<* All Rights Reserved. 30-Sep-ai ») 

(« ») 



<»R-> 

unit globals; 

interface 



const BLOCKSIZE = 512i 
VIDLENGTH = 7; 
TIDLENGTH = 15i 
MAXDIR = 77i 
MAXDEV = 36; 
MINSLT = 1; 
MAXSLT = 5; 
MAXJTABLE = 40. 
MAXUTABLE = 10; 



MAXPRDCESS 

MAXWINDOW 

LOCODELOC 

HICODELOC 

SysComPLoc 

SysKybdFlg 

SysByteScn 

CPtprvrs 

CPuserlD 

CPuserName 

FNORMAL 



10; 

20; 

«0108i 

»010C; 

»0180; 

$0184; 

*018&; 

»070Ci 

*071C; 

*0726; 

0; FLOCK = 



{keyboard control flags> 

{display driver - bytes per scan line> 

{OMNINET Transporter version number} 

{user name field - decrypted} 

{user name field - encrypted} 



1; FPURGE 



2; FTRUNC = 3; 



LongStrMax 



Ulsense 


= 





Ucreate 


= 


1 


Udelete 


= 


2 


Ulselect 


= 


3, 


Wclear 


= 


4, 


Wstatus 


= 


5, 


WurBy tes 


= 


lb, 


UlrdBytes 


= 


7, 


DTndev 


= 


0, 


DTlocl 


= 


1, 



1030; 

{uindobi functions} 



{ no device 
{ 1 ocal disk 



CCOS Manual 



Page ApndxA-1 



DTomni 


= 2 


< 


DTcS 


= 3 


■c 


DTc5 


= 4 


< 


DTaS 


= 5 


< 


DTbank 


= 6 


•C 


DTfB 


= 7 


{ 


DTf5 


= 8 


< 


DTf3 


= 9, 


{ 



OMNINET disk > 

Corvus 8" SSSD floppg disk > 

Corvus 5" SSSD floppy disk > 

Apple 5" floppy disk > 

Corvus BANK > 

Corvus 8" DSDD floppy disk > 

Corvus 5" DSDD floppy disk > 

Corvus 3" DSDD floppy disk > 

<»P> 

type stringSO = stringCBOJ; 
dirrange = 0. . MAXDIR; 
vid = stTingCVIDLENGTH3i 
tid = stringCTIDLENGTHJi 
filekind = (UNTYPEDFILE, XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 

DATAFILE, GRAFFILE, FOTOFILE. SECURDIR); 
daterec = packed record 

year: 0. . lOOi { 100 = temp file flag > 
day : 0.31; 

month: 0. . 12; { O = date not meaningful > 
end; 



direntry = packed 



record 

firstblock: integer; 
nextblock: integer; 
liarkBit: Boolean; 
filler: 0. . 2047; 
case fkind: filekind of 
SECURDIR, 
UNTYPEDFILE: 
< d vid : vidi 
deovb lock 
dnumf i les 
d load time 
d lastboot 
MemFlipped 



end 



integer; 
integer; 
integer; 
daterec; 
Boolean 

DskFlipped: Boolean); -C .. . 

XDSKFILE, CODEFILE, TEXTFILE, INFOFILE. 
DATAFILE, GRAFFILE, FOTOFILE: 

(dtid: tid; < Title of file } 

dlastbyte: 1. . BLOCKSIZE; -C Bytes in last block > 
daccess: daterec); -C Last modification date } 



Disk volume name > 
Last block of volume } 
Number of files > 
Time of last access } 
Most recent date setting } 
TRUE if flipped in memory > 
TRUE if flipped on disk } 



directory = array Cd irrange] of direntry; 
pdirectory = --directory; 

devrange = 0. . MAXDEV; 



<»P> 



byte 



-128. . 127; 
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bytes 


= 


array CO. . 


»7FFE] of 


bytei 


pBgtes 


= 


'^bytesi 




ppointer 


= 


•^pBy tesi 




uiords 


= 


array CO. . •7FFE3 of 


integer; 


pMords 


= 


'^(jordsi 




luords 


= 


array CO. . •7FFE] of 


longinti 


pLWords 


= 


"luords; 




string2 


= 


stringC02] 






string 16 


= 


stringC16] 






stringl9 


= 


stringC191 






string32 


= 


stringC32] 






string64 


= 


stringC643 






pstring64 


= '^string64i 




str64rec 


= 


record s: string64; 


end; 


pstr64rec = 


= '^str64reci 




stringtable = array C 1. . 1003 of 


pstr64rec 


pstringtab 1 


e = "string tab le; 




str8 


= 


str ingCBJi 




pstrS 


= 


-"strSi 




strl6 


= 


str ingC16]i 




pstrl6 


= 


-^strlii 




strl20 


= 


stringC1203i 




pstrl20 


= 


-~-strl20i 







addrtable = arrayCO. . MAXJTABLE] of pBytesi 
paddrtable = '^addrtable; 

uaddrtable = array CO. . MAXUTABLE] of pBytes; 
puaddrtable = '^uaddrtable; 



<»P} 












pDrvHd 


r 


= 


"DrvHdrR 


cd; 


DrvHdr 


Red = 


record 




<Iength 


off 


set> 






< 1 







> 


bra: 


byte; 


< 1 




1 


> 


ofs: 


byte; 


■C 1 




2 


> 


Blocked: 


boolean; 


< 1 




3 


> 


comnds: 


byte; 


< 1 




4 


> 


yr: 


byte; 


< 1 




5 


> 


mo: 


byte; 


< 1 




6 


> 


dy: 


byte; 


■C 1 




7 


> 


fill: 


byte; 


< 




8 


> 


msg : 
end; 


str ing64; 



pdevtable = 
devtabrec = 
■Clength offset} 

< 2 > 

< 4 2 > 



'devtabrec ; 
record maxdevno: integer; 

dt: array Cdevrange] of 

record comnds: integer; 
driver: pBytes; 
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< 1 


6 > 


■C 1 


7 > 


{ 8 


S > 


{ 4 


16 > 


< 1 


20 } 


< 1 


21 > 


•C 1 


22 > 


< 1 


23 > 


■C 1 


24 > 


< 1 


25 > 


■C 1 


26 > 


i 1 


27 > 


•C 4 


28 > 


< total 


32 > 


SlQ 


tTypes = 



psittable = 
slttabrcd = 
<length offs»t> 



2 

2 
2 
2 
2 
2 
20 




2 
4 
6 

a 

10 
12 



Blocked 

Mounted 

devname 

devsl ze 

devsit: 

devsrv: 

devdrv: 

devtyp: 

devspt: 

devtps: 

devro: 

devf Ip: 

devblk: 



boolean; 

boolean; 

vid; 

longint; 

byte; 

byte; 

byte; 

byte; 

byte; 

byte; 

boolean; 



end; 



end; 



<device slot n(nbr> 
{device server n(nbr> 
<di«k drive nmbr} 
<disk drive type> 
{sectors per track> 
{tracks per side> 
{device read only> 
boolean; {volume directory flipped} 
longint; {disk base block> 



{ 


20 


32 


> 


drv: 
end; 


array C 


{♦P> 














pCh 


arSet 


= 


"CharSet 






CharSet 


= 


record 




{len 


gth 


offset} 






{ 


4 





> 


tblloc: 


pBy tes; 


{ 


2 


4 


> 


Ipch: 


integer 


{ 


2 


6 


> 


bpch: 


integer 


{ 


2 


8 


> 


frstch: 


integer 


{ 


2 


10 


> 


lastch: 


integer 


{ 


4 


12 


> 


mask: 


long int 


{ 


1 


16 


> 


attrl: 


byte; 



(NoDisk, LocalDisk, OmninetDisk, 
FlpyCBDisk, FlpyCSDisk, FlpyASDisk, 
BankDisk. 
FlpyF8Disk, FlpyFSDisk, FlpyF3Disk); 

'slttabrcd; 
record 

bootsit: integer; 
bootsrv: integer; 
actslt: integer; 
actsrv: integer; 
altslt: integer; 
altsrv; integer; 
St: array CMINSLT. . MAXSLT3 of record 

sit: MINSLT. . MAXSLT; 

typ: slottypes; 

ndr: INTEGER; 

end; 

CMINSLT. . MAXSLT] of pBytes; 



17 > 



filU: 



byte; 



{character set data pointer} 

{scanlines per character (assume uiide)} 

{bits per character (vertical height)} 

{first character code - ascii} 

{last character code - ascii} 

{mask used in positioning cells} 

{attributes} 

{ bit 0=1- vertical orientation} 

{currently unused} 
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{ total 



18 > 



■ndi 





pWndStat 


= 


-•WndSt 


■ t) 




MndStat 


as 


TBCOr 


d 


<1 


■ngth 


offs«t> 






< 


Z 







homex 


intagarj 


< 


2 


2 




homag 


Intagari 


< 


2 


4 




uiidth 


intcgari 


< 


2 


6 




Ingth 


integer; 


< 


1 


8 




activ 


■: booleani 


<. 


1 


9 




filll 


bytci 


< 


total 


10 




and; 






pWndRcd 


= 


■^WndRc 


di 




MndRcd 


St 


recor 


i 


<1 


•ngth 


Off«Bt> 






■c 


4 







charp 


t: pCharSet 


< 


4 


4 




hofflap 


t: pBytesi 


< 


4 


8 




curadi 


r: pBytesj 


< 


2 


IS 




hoflieo 


F: integer; 


< 


2 


14 




basex 


integer; 


< 


2 


16 




basay 


integer; 


< 


2 


18 




Ingth 


k: integer; 


■c 


2 


20 




Ingth 


j: integer; 


■c 


2 


22 




cursx 


integer; 


■c 


2 


24 




cursg 


integer; 


•c 


2 


26 




bitof 


i: integer; 


< 


2 


28 




grorg 


■: integer; 


< 


2 


30 




grorgi 


i: integer; 


•c 




32 




attrl 


byte; 


{ 




33 




attra 


byte; 


< 




34 




state 


byte; 


< 




33 




rcdlai 


i: byte; 


< 




36 




attr3 


byte; 


< 




37 




filll 


byte; 


< 




38 




filia 


byte; 


< 




39 




fill3 


byte; 


< 




40 




fill4 


longint; 


< 




44 




uiuispti 


": pBytesi 


■c 


total 


48 




endi 






pWndTbl 


« 


-^WndTb 


L; 




WndTbl 


= 


array 


CO. . MAXWIN 



<relative to current character set> 

{relative to current character set> 

{relative to current character *et> 

{relative to current character «Bt> 
{active uindou flag> 
{currently unused> 



i {character set 
{home (upper le 
{current locati 
{bit offset of 
{home x value< 
{home y value/ 
{maximum x valu 
{maximum y valu 
{current x valu 
{current y valu 
{bit offset of 
{graphics - ori 
{graphics - ori 
{inverse, under 
{v/hi graphics/ 
cursor inv/und 
{used for decod 
{(iiindoui descrip 
{enhanced chara 
{currently unus 
{currently unus 
{currently unus 
{currently unus 
{uindou working 



record 


pointer} 


ft) pointer} 


on poin 


ter} 




home location} 


rel to 


root 


uindou} 


rel to 


root 


uindou} 


e. bits 


rel 


to uindou} 


ei bits 


rel 


to uimdou} 


e. bits 


rel 


to uindou} 


ei bits 


rel 


to uindou} 


current 


address} 


gin Xi 


bits 


rel to home} 


gin y> 


bits 


rel to home} 


score. 


inser 


t} 


char, cursor 


on/off. 


erline> 






ing escape sequences} 


tion record 


length} 


cter se 


t att 


ributes} 


ed> 






ed> 






ed> 






ed} 






storag 


e po] 


nter} 



{•P} 



pprocrec >= '"■procrec; 

procrec = record d: arrayCO. . 73 of longint; 

a: arrayCO. .73 of longint; 

no: integer; lores: integer; 

proresult: integer; statusreg: integer; 
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pc: longinti 

hicoda: longtnt; 

locodt: longinti 

hidata: longint; 

lodata: longint; 

hvaptop: longint; 

jumptab: longint; 
*cc> loheap: longint; 

*cc> wndptr: pMndRcd; 

<cc> pgmid: «tringl9i 

end; 

pproctable = -^proctable; 

proctable - arra«CO. . MAXPROCESS: of procrec; 

insmrac » r»cord lodata: longint; 

hidata: longint; 

locode: longint; 

hicoda: longinti 

btsu: integer; 

btdev: integer; 

btslt: integer; 

btsrv: integer; 

btdrv: integer; 

btblk: longint; 
end; 

pfib = -^fib; 

fib ' record fuindou: pBytes; 
FEOLN: Booleani 
FEOF: Boolean; 
Ffext: Booleani 

f state: <FTVALID, FIEMPTY, FIVALID, FTEMPTY); 
frecsiie: integer; 
case FIsQpen: Boolean of 

TRUE: (FIsBlocked: Boolean; 
funit: integer; 
fvid: vidi 
frepeatcounti 
fnextblock/ 
fmaxblock: integer; 
FModified: Boolean; 
fheader; direntry; 
case FSoftBuf: Boolean of 

TRUE: (fncxtbyte. fmaxbyte: integer; 
FBufChanged: Boolean; 
fbuffer: arrayCO. . 5113 of bytei 
fuparroui: integer))! 
endi 

ptext » ^text; 
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■C»P> 

«« 
-Clength 



yscom = 
scomrac 
offset> 



2 
2 
4 
4 
4 
4 
4 
4 
4 
2 
4 
2 
2 
4 
4 
4 
2 





2 
4 
8 
12 
16 
20 
24 
28 
32 
34 
38 
40 
42 
46 
50 
54 



syscoinrec; 
= record 

sioresult: integer; 
processno: integer; 
freeheap: pBytes; 
jtable: paddrtable; 
sysout: ptext; 
sysin: ptext; 
sysdevtab: pdevtable; 
pdirname: pstring64; 
utable: puaddrtable; 
today: datereci 
codejtaddr: longint; 
nextprono: integer; 
numpros: integer; 
pro table: pproctable; 
pbootname: pstring64; 
memmap: '^memrec; 
bootdev: integer; 



<boot device number} 



4 
4 
4 
4 
4 
2 
4 
4 
4 
2 
2 
1 
1 
4 
total 



56 
60 
64 
68 
72 
76 
78 
82 
86 
90 
92 
94 
95 
96 
100 



{CONCEPT a 
tempUndRcd 
sysslttab: 
nex tMndRcd 
currWndRcd 
currKbdRcd 
UserlD: in 
vrsnmbr: p 
vrsdate: p 
WndouTbl : 
suspinh : 
suspreq.: 
TitleVol: 
TitleTim: 
ppvolname 
end; 



dd i t ians> 

pUndRcdi {temporary uindou record pointer} 

pslttable; <slot table pointer} 

pMndRcd; <next uiindou record pointer} 

pMndRcd; {current uindou record pointer} 

pBytes; {current keyboard record pointer} 

teger; {Constellation user ID} 

string64i {current version nmbr string pointer} 

string64; {current version date string pointer} 

pkfndTbli {uiindoui table pointer} 

ntegeri {suspend inhibit count} 

nteger; {suspend req.uested if non-zero} 

byte; {title line offset for volume} 

byte; {title line offset for time} 

pstring64; {program volume name pointer} 



{♦P} 



SndRcvStr 



= RECORD 

sin: INTEGER; {send length} 
rln: INTEGER; {recv length} 
CASE integer OF 



END; 



1 


(c: 


PACKED 


ARRAY 


CI 


2 


(b: 




ARRAY 


CI 


3 


(str: 


PACKED 


ARRAY 


CI 


4 


(int: 




ARRAY 


CI 



LongStrMax] OF CHAR); 
LongStrMax] OF byte); 
LongStrMaxJ OF CHAR); 
LongStrMax3 OF byte); 
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Hoct_tupts » (Ustr_«t«tlon. 
Fil»_s»rver. 
Printtr_»erv»r. 
Nanie_s«rveri 
Mod»m_server/ 
DB_serveri 
ON_inter connect I 
X29_gateii;ay. 
SNA_gateuay ) < 

implementation 

end. <globals> 
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Attaching Drivers to the Enhanced Printer Driver 



The enhanced printer driver can send its output to any 
driver on the system. The follouiing example Pascal program 
attaches a neui printer driver called DRV. APIO that runs a 
printer from an interface card in one of the Concept slots. 
Normallyf the output of the enhanced printer driver is sent 
to DTAC0M2. 



Program SetAPIO; 

Uses 

<*U /ccutil/cclib> ccDefn; 

•C Load the enhanced printer driver DRV. EPRNT, then 
load the nem printer driver DRV. APID. 

Attach the tuio so that output from DRV. EPRNT goes to 
DRV. APIO and thence to printer. > 



Const 




RemOut 


= 8i 


Printer 


= 6i 


PrtUnit 


= 'Printer' 


Var 




I. 




Unbr 


Integer; 


P 


pStringSO 


MP 


pBy tesi 


Mounted 


Booleani 



Function pOSdevNam(U: Integer): pString80> External; 

Procedure DoAssign(Sl< S2, S3: String64); 

Var 

ST : ArrayCl. . 10] of pString64i 
I Integer; 

Begin 

StClD := esi; StC23 := 632; STC33 := 633; 
I := CalK ' IAS3IGN'. input, output. St. 3); 
If I O Then Begin 

WriteLn( 'Error ',i:l, ' assigning driver '.31); 
Exit(SetAPIO) 
End 
End; 
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Begin -C Mainline > 

Mounted : • False; 
P := pOSdevNain(Printer>i 
If p-^ = PrtUnit Then Begin < See if printer mounted > 

MP := Pointer<Ord64(p)-l)i 

Mounted := (MP-^COl = 1) 

Endi 
If Not Mounted Then { Not mounted > 

DoAssign( ' ! DRV. EPRNT', PrtUnit, '6')i 
P :" pOSdevNam(RemOut )i 
P"- : = " i 

DoAssign( 'DRV. APIO', 'APIO', '8'); { Assign neui driver > 
Unbr : = RemOuti 

UnitStatusCPrinter, Unbr. *82)i < Attach to DRV. EPRNT> 
I : = lORESULT; 

If I <> Then WriteLn< 'Error ',i:l,' attaching drivers') 
End. 
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Example timer driver routines 

The following Pascal program and attached machine code 
comprise an example of a user timer routine. Once this 
routine is installed, the timer driver mill call it at 50ms 
intervals. 

Program timertesti 



const timer = 34; -Ctimer unit »} 

Bell = Oi <bell routine #> 

<Create routine #} 
<delete rtn #> 
{disable rtn #> 
<enable rtn »> 
<continuous/lshot mode flag 
<skip first call flag TRUE> 
= FALSE; 



Create 


- 


1 


Delete 


= 


2 


Disable 


= 


3 


Enable 


= 


4 


ONESHOT 


3S 


2 


SKIPIST 


= 


4 


ok 


= 


F 



1 SHOT> 



type byte = -128. . 127; 

bytes = array CO. . 99993 of byte; 
proutine = "bytes; 
tbllD = integer; 
PBlockCreS = record 

case INTEGER of 



(BLAH 



record 



address 
count 
flags 
tablelD 
end ) ; 
(tablelD : 
(BellBlock 
f req. 



proutine; 
integer; 
integer; 
tbllD 



end >; 



tbllD); 
record 
integer; 
speaker : byte; 
fill : byte; 
duration : integer 



end; 



var ParameterBIockCreS 
Res tParameterB lock 
ForBell 
i- J. a. n 
ansuer 



PBlockCreS; 
PBlockCreS; 
PBlockCreS; 
integer; 
str ingCBO]; 



procedure DoNada; external; 
procedure Uait; external; 
procedure Clear; external; 



■C This is the timer routine > 
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4=unction T»«t : boolearii •xternal; 

procedure HeIlo> 
begin 
if (i<>0 then begin 

uriteInC 'Hel lo there!!!! 'iq)i 
1 ■ = q+1 
endi 
end; 

BEGIN 

iurite<'Want timer table test? («/n) '); readln(ansuer ); 

if <anstjerCl]='y')or(an»uierCn='Y') then begin 

<call timer driver to create an entry> 

ParameterBlockCreS. BLAH, address : = SDoNadai 

ParameterBlockCreB. BLAH, count := 1; {call every 50 milliseconds} 

ParameterBlockCreS. BLAH, flags := 0; <do a continuous entry> 

ParameterBlockCreS. BLAH. tablelD := »OOFF; <give value to make sure correct} 

iifriteln( 'address of ParameterBlockCreS = '< ord4(eParameterBlockCre8) ) i 

with ParameterBlockCreS. BLAH do begin 

urite( 'address = '< ord4(addr ess ) . ' count = '.count); 
u/ritelnC flags = '.flags,' tablelD" '.tablelD); 

end; 

UnitStatus(timer. ParameterBlockCreS. Create); 

uiritelnC' tablelD- '. ParameterBloc kCreS. BLAH, tab lelD) ; 

RestParameterBlock. tablelD :- ParameterBlockCreS. BLAH. tablelD; 

Clear; 

for i := 1 to 3 do begin 

Ma it; 

uriteln( 'Flag set ',i,' times'); 
end; 

UnitStatus(timer. RestParameterBlock. Disable); 

Clear; {in case interrupt during Disable operation} 
for i. = 1 to MAXINT do 
for J := 1 to 10 do; 
turitelnC 'Waited '. ord4(MAXINT)*10. ' iterations'); 
if Test then inriteln< 'After Disable flag set') 

else luritelnC 'After Disable flag clear'); 

UnitStatus(timer, RestParameterBlock. Enable); 

for i := 1 to 15 do begin {flag should be clear from before Enable} 

Wait; 

ttir Ite In ( 'After Enable. Flag set ', i, ' times'); 
end; 

UnitStatusCtimer, RestParameterBlock, Delete); 
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Clear; <in case interrupt during Delete operation} 

for i:= 1 to MAXINT do; 

for J := 1 to 10 do; 

iiiriteln( 'Waited '. ord4(f1AXINT)»10, ' iteration*'); 

if Test then uiriteln ( 'After Delete flag set') 

else uritelnC 'After Delete flag clear'); 

<do timer table test with Pascal program} 

q. :» 0; <make sure Hello doesn't uirite until ready> 
ParameterBlockCreB. BLAH, address :« fiHello; 

ParameterBlockCreB. BLAH, count := 10; <call every 500 milliseconds} 
ParameterBlockCreB. BLAH, flags :- 0; <do a continuous entry} 
ParameterBlockCreB. BLAH. tablelD := »OOFF; <give value to make sure corr 
uritelnC 'address of ParameterBlockCreB = '. ord4(eParameterBloc kCreB) ) ; 
with ParameterBlockCreB. BLAH do begin 

urite( 'address = ', ord4(address > . ' count = '.count); 

uritelnC flags = '.flags,' tabIeID= '.tablelD); 
end; 

UnitStatusCtimer. ParameterBlockCreB, Create); 
uritelnC' tablelD = ', ParameterBloc kCreB. BLAH, tab lelD) ; 
RestParameterBlock. tablelD := ParameterBloc kCreS. BLAH, tab lelD; 

H := 1; <alloiii Hello to start} 
a : = 2; <ijait till q=a} 
for i: =1 to 10 do begin 

while ((i<a) do; {uait for change} 

a : = a+1; 
end; 

H := 0; <turn off Hello} 
UnitStatus(timer. RestParameterBlock. Delete); 

end; <timer table test} 

uiriteC 'Want Bell test? (y/n) '); read InCansuer ) ; 
if (ansiuerC13='y ')or<ansiJerCn='Y') then begin 
repeat 

{make a bell sound} 

uith ForBell. BellBlock do begin 

speaker : = »55; 

fill : = 0; 

duration := 10; -£1/2 second} 

uiriteln( 'enter to get defaults' ); 

uritet 'Enter speaker (a single byte) : '); readln(a); 

if aOO then speaker : =: a; 

iiirite( 'Enter duration in 50 millisecond ticks : '); readln(a); 

if aOO then duration : = a; 

freq := 1000; {defaults} 

uriteC 'Enter frequency : '); readlnCa); 

if aOO then freq := a; 

ii/rite( 'Enter number of times : ' ) ; read In (a ) ; 
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and; 

for i: =1 to a do 
with ForBell. BallBlock do begin 

ij)rite( 'fr«q » '. fre<i. ' spkr « '> speaker): 
writelnC 'dur. = '■ duration); 
freq : " freti + 1' 
UnitStatus( timer. ForBell < Bell ); 
end; 
uiri te( 'Done? (g/n) '); read In (ansuier > ; 
until ( (ansiiierC13='y ') or (ansuier CI 3= 'Y' ) ); 
end; 
END. 
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DoNada 

Folloulng is the source for a user routine to be serviced 
bq the timer driver. It Is installed bij the Pascal program 
in the previous section. 

interrupt service routine called by timer interrupt service routine 
AND routines to verify interrupt occurred. 

global DONADA. Wait. Clear, Test 

stopl equ O iflag saying interrupt routine called 

i 

DONADA lea flag.AO i shoui Wait interrupt occurred 



Uait lea flag>AO iuiait until flag set 

uiaitlO 



lea 


f lag, AO 


bset 


#stopl, (AO) 


rts 




lea 


flag, AO 


btst 


#stopl, (AO) 


beq. s 


Ilia i 1 1 


bclr 


«stopl, (AO) 


rts 




lea 


flag, AO 


bclr 


#stopl, (AO) 


rts 





i always clear uihen done 
Clear lea flag,AO i clear interrupt occurred flag 



test if stop flag set or clear 
function Test : boolean; 

Test 

movea. 1 (SP) + ,A1 ; get return address 

lea flag,AO 

btst #stopl, (AO) 

beq. s testlO 

move. ID #$01, (SP) iboolean is true if flag is set 

bra. s test20 

testlO move.w tt»00, (SP> iboolean is false if flag clear 

test20 jmp (Al) 

flag data ; flag byte 

i 

end 
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Action table> 141 

Alternate character table< 123< 144 

Apple, 117 

ARGC, 31 

ARGV, 31 

Bell service/ 114 
BLDACT, 141 
BLDALT, 144 
BLDCRT, 146 
Block I/O, 49 
Block. 6 
Boolean, 6 

Break code table, BS 
Byte, 6 

Caps lock, 82 
Character set record, 94 
Character sets, 94 
Clock service, 115 
Compilers, 158 
Crac kpathname, 52 
Crt table, 146 
Crt tables, 100 

Datacomm driver, 102 
Datacomm interrupts, 33 
Datacomm, 135 
Delentry, 54 
Despooler, 137 
Device table, 14 
Directory, 21 
Dispatcher, 3 
Display driver, 93 
Display, 29 
Dispose, 56 
Double density, 117 
Double underline, 124 
DRV. DISPHZ, 74 
DRV. DISPVT, 74 
DRV. KYBD, 74 
DRV. SYSTRM, 74 

Enhancements, 96, 123 
Escape sequence table, 79 
Exec files, 133 

FCLOSE, 47 
FOET, 45 
FIB, 17 
File I/O, 44 



File manager, 133 
File, 1 
FINIT, 44 
FLIPDIR, 49 
Floppy disk, 117 
FOPEN, 44 
Formats, 117 
FORTRAN, 158 
FPUT, 45 
GETDIR, 51 
GETVOLNAMES, 51 
Graphics, 96 
Heap, a 

I/O slots, 35 
Insertentry, 54 
Interleave, 118 
Interrupt, 63 
Interrupts, 32 
Inverse, 124 
loresult, 8, 24 

Keyboard interrupts, 32 
Keyboard translation tables, 76 
Librarian, 157 
Libraries, 155 
Linker, 153 
Long uord/ 6 

MARK, 57 

MAXDEV, 72 

tlEMAVAIL, 28, 57 

Memory map, 26 

Multiple character sequence table, 80 



Neu, 56 








Nil, 6 








Offset, 


118 






Omni net 


interru 


pts, C 


Over layi 


. 9 






Overstri ke. 


125 




Pascal, 


158 






Pitch, : 


126 






Pointer, 


6 






Printer 


action 


table. 


Printer 


driver, 


123 


Process, 


8 






Proport] 


Lonal 


sp 


ac ing, 


Putdir, 


52 







33 



124 



126 



Readchar< 47 
Register, 31 
Regular table, 79 
Release table, 82 
Release, 57 
Rubber space, 126 

SEARCHDIR, 53 

Sectors, 117 

Seek, 48 

Seglock, segunlock, 150-151 

Segments, segmentation, 149 

SETDCP, 136 

Shift table, 79 

Skeu, 118 

Spooler, 137 

Stack pointer, 27 

Strikeout, 124 

String, 6 

Subscript, 124 

Superscript, 124 

SYSCOM, 7 

SYSIN, 8 

SYSOUT, 8 

System call vector, 11 

System manager, 135 

Temporary, 3 
Timer driver, 111 
Timer interrupts, 33 
Translation table examples, 82 

Underline, 124 

Unit I/O, 41 

Unit, 3 

UNITBUSY, 41, 61 

UNITCLEAR, 41, 62 

UNITINSTALL, 62 

UNITREAD, 41, 62 

UNITSTATUS, 41, 62, 69 

UNITUNMOUNT, 62 

UNITWRITE, 41, 62 

User service routines, 111 

VALIDDIRECTORY, 50 
VALIDNAME, 50 
Via, 34 
Volume, 1, 3 

Window manager, 135 
Windou record, 93 



Windou/s. 93 
Word, 6 
Writechar, 48 



